home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbcoder / codedb.md_ / codedb.md / CodeItems.json next >
Encoding:
JavaScript Object Notation  |  1999-05-11  |  356.1 KB
  1. {
  2.     "schema": {
  3.         "ID": "Long Integer",
  4.         "Description": "Text (255) NOT NULL",
  5.         "Code": "Memo/Hyperlink (255)",
  6.         "Notes": "Memo/Hyperlink (255)",
  7.         "Example": "Memo/Hyperlink (255)",
  8.         "ParentID": "Long Integer"
  9.     },
  10.     "data": [
  11.         {
  12.             "ID": 2,
  13.             "Description": "Common Controls",
  14.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17 Code Area\r\n\\par }\r\n",
  15.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17 Notes\r\n\\par }\r\n",
  16.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17 Examples\r\n\\par }\r\n",
  17.             "ParentID": 0
  18.         },
  19.         {
  20.             "ID": 3,
  21.             "Description": "Text Box",
  22.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17 Code Area\r\n\\par }\r\n",
  23.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\f4\\fs17 Notes\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  24.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17 Examples\r\n\\par }\r\n",
  25.             "ParentID": 2
  26.         },
  27.         {
  28.             "ID": 4,
  29.             "Description": "Select all text on focus",
  30.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\froman Times New Roman;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  31.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\f4\\fs17 When the textbox get the focus the text it contains is selected\r\n\\par \r\n\\par Make a new project and add a textbox to a from\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  32.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'Add this code to the form's General Declarations procedure:\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17  SelectAll(Editctr \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  Control)\r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf2 With\\plain\\lang1032\\f3\\fs17  Editctl\r\n\\par         .SelStart = 0\r\n\\par         .SelLength = \\plain\\lang1032\\f3\\fs17\\cf0 Len\\plain\\lang1032\\f3\\fs17 (Editctr)\r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 With\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'Add this code to the text box's GotFocus procedure:\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Private\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf0 Text\\plain\\lang1032\\f3\\fs17 1_GotFocus()\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Call\\plain\\lang1032\\f3\\fs17  SelectAll(\\plain\\lang1032\\f3\\fs17\\cf0 Text\\plain\\lang1032\\f3\\fs17 1)\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par }\r\n",
  33.             "ParentID": 3
  34.         },
  35.         {
  36.             "ID": 5,
  37.             "Description": "How many lines?",
  38.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17\\cf2 'Add this code to the module:\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 Option\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Explicit\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Declare\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Function\\plain\\f3\\fs17  SendMessageLong \\plain\\f3\\fs17\\cf1 Lib\\plain\\f3\\fs17  _\r\n\\par     \"user32\" \\plain\\f3\\fs17\\cf1 Alias\\plain\\f3\\fs17  \"SendMessageA\" _\r\n\\par     (\\plain\\f3\\fs17\\cf1 ByVal\\plain\\f3\\fs17  hwnd \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17 , _ \r\n\\par      \\plain\\f3\\fs17\\cf1 ByVal\\plain\\f3\\fs17  wMsg \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17 , _ \r\n\\par      \\plain\\f3\\fs17\\cf1 ByVal\\plain\\f3\\fs17  wParam \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17 , _\r\n\\par      \\plain\\f3\\fs17\\cf1 ByVal\\plain\\f3\\fs17  lParam \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17 ) \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Const\\plain\\f3\\fs17  EM_GETLINECOUNT = &HBA\r\n\\par \r\n\\par }\r\n",
  39.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\f4\\fs17 Find out how many lines there are\r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17 Make a new project. Add a module. To the form add a text box and a label. \r\n\\par }\r\n",
  40.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17\\cf2 'Add this code to the text box's Change procedure:\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Sub\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf0 Text\\plain\\f3\\fs17 1_Change()\r\n\\par     \\plain\\f3\\fs17\\cf1 Dim\\plain\\f3\\fs17  lineCount \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf1 On\\plain\\f3\\fs17  Local \\plain\\f3\\fs17\\cf1 Error\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Resume\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Next\\plain\\f3\\fs17 \r\n\\par   \r\n\\par lineCount = SendMessageLong(\\plain\\f3\\fs17\\cf0 Text\\plain\\f3\\fs17 1.hwnd, EM_GETLINECOUNT, 0&, 0&)\r\n\\par     Label1 = \\plain\\f3\\fs17\\cf0 Format\\plain\\f3\\fs17 $(lineCount, \"##,###\")\r\n\\par \\plain\\f3\\fs17\\cf1 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Sub\\plain\\f3\\fs17  \r\n\\par \r\n\\par }\r\n",
  41.             "ParentID": 3
  42.         },
  43.         {
  44.             "ID": 6,
  45.             "Description": "List Box",
  46.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  47.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\f4\\fs17 Listbox Routines\r\n\\par \\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  48.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  49.             "ParentID": 2
  50.         },
  51.         {
  52.             "ID": 7,
  53.             "Description": "Long entries as tooltip",
  54.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  55.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\f4\\fs17 This code is useful when you have entries in the listbox which are longer than the size of the listbox\r\n\\par \r\n\\par \r\n\\par Add a listbox to a from\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  56.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\f4\\fs17\\cf2 Option\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Explicit\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 'Declare the API function call.\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 Private\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Declare\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Function\\plain\\f4\\fs17  SendMessage _\r\n\\par \\plain\\f4\\fs17\\cf2 Lib\\plain\\f4\\fs17  \"user32\" \\plain\\f4\\fs17\\cf2 Alias\\plain\\f4\\fs17  \"SendMessageA\" _\r\n\\par \r\n\\par (\\plain\\f4\\fs17\\cf2 ByVal\\plain\\f4\\fs17  hwnd \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Long\\plain\\f4\\fs17 , _\r\n\\par \\plain\\f4\\fs17\\cf2 ByVal\\plain\\f4\\fs17  wMsg \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Long\\plain\\f4\\fs17 , _\r\n\\par \\plain\\f4\\fs17\\cf2 ByVal\\plain\\f4\\fs17  wParam \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Long\\plain\\f4\\fs17 , _\r\n\\par lParam \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  Any) \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Long\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf1 ' Add API constant\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 Private\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Const\\plain\\f4\\fs17  LB_ITEMFROMPOINT = &H1A9\r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 'Next, add some code to the form load event to fill the ListBox with data:\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf2 Private\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Sub\\plain\\f4\\fs17  Form_Load()\r\n\\par \\plain\\f4\\fs17\\cf1 '\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf1 ' load some items in the list box\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 With\\plain\\f4\\fs17  List1\r\n\\par .\\plain\\f4\\fs17\\cf0 AddItem\\plain\\f4\\fs17  \"Michael Clifford Amundsen\"\r\n\\par .\\plain\\f4\\fs17\\cf0 AddItem\\plain\\f4\\fs17  \"Walter P.K. Smithworthy, III\"\r\n\\par .\\plain\\f4\\fs17\\cf0 AddItem\\plain\\f4\\fs17  \"Alicia May Sue McPherson-Pennington\"\r\n\\par \\plain\\f4\\fs17\\cf2 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 With\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf1 '\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Sub\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 'Finally, in the MouseMove event of the ListBox, put the following code:\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf2 Private\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Sub\\plain\\f4\\fs17  List1_MouseMove(Button \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Integer\\plain\\f4\\fs17 , Shift \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Integer\\plain\\f4\\fs17 , _\r\n\\par X \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Single\\plain\\f4\\fs17 , Y \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Single\\plain\\f4\\fs17 )\r\n\\par \\plain\\f4\\fs17\\cf1 '\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf1 ' present related tip message\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf1 '\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf2 Dim\\plain\\f4\\fs17  lXPoint \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Long\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 Dim\\plain\\f4\\fs17  lYPoint \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Long\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 Dim\\plain\\f4\\fs17  lIndex \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Long\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf1 '\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 If\\plain\\f4\\fs17  Button = 0 \\plain\\f4\\fs17\\cf2 Then\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 ' if no button was pressed\\plain\\f4\\fs17 \r\n\\par lXPoint = \\plain\\f4\\fs17\\cf2 CLng\\plain\\f4\\fs17 (X / Screen.TwipsPerPixelX)\r\n\\par lYPoint = \\plain\\f4\\fs17\\cf2 CLng\\plain\\f4\\fs17 (Y / Screen.TwipsPerPixelY)\r\n\\par \\plain\\f4\\fs17\\cf1 '\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 With\\plain\\f4\\fs17  List1\r\n\\par \\plain\\f4\\fs17\\cf1 ' get selected item from list\\plain\\f4\\fs17 \r\n\\par lIndex = SendMessage(.hwnd, _\r\n\\par LB_ITEMFROMPOINT, _\r\n\\par 0, _\r\n\\par \\plain\\f4\\fs17\\cf2 ByVal\\plain\\f4\\fs17  ((lYPoint * 65536) + lXPoint))\r\n\\par \\plain\\f4\\fs17\\cf1 ' show tip or clear last one\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 If\\plain\\f4\\fs17  (lIndex >= 0) \\plain\\f4\\fs17\\cf2 And\\plain\\f4\\fs17  (lIndex <= .ListCount) \\plain\\f4\\fs17\\cf2 Then\\plain\\f4\\fs17 \r\n\\par .ToolTipText = .List(lIndex)\r\n\\par \\plain\\f4\\fs17\\cf2 Else\\plain\\f4\\fs17 \r\n\\par .ToolTipText = \"\"\r\n\\par \\plain\\f4\\fs17\\cf2 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 If\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 With\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 '(List1)\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 If\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 '(button=0)\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf1 '\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Sub\\plain\\f4\\fs17 \r\n\\par \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  57.             "ParentID": 6
  58.         },
  59.         {
  60.             "ID": 8,
  61.             "Description": "Forms",
  62.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17 \r\n\\par }\r\n",
  63.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  64.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  65.             "ParentID": 0
  66.         },
  67.         {
  68.             "ID": 9,
  69.             "Description": "On Top",
  70.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1033\\pard\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 'Add this code to the module: \\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 Public\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Const\\plain\\f4\\fs17  HWND_TOPMOST = -1\r\n\\par \\plain\\f4\\fs17\\cf1 Public\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Const\\plain\\f4\\fs17  HWND_NOTOPMOST = -2\r\n\\par \\plain\\f4\\fs17\\cf1 Public\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Const\\plain\\f4\\fs17  SWP_NOMOVE = &H2\r\n\\par \\plain\\f4\\fs17\\cf1 Public\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Const\\plain\\f4\\fs17  SWP_NOSIZE = &H1\r\n\\par \\plain\\f4\\fs17\\cf1 Public\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Const\\plain\\f4\\fs17  SWP_NOACTIVATE = &H10\r\n\\par \\plain\\f4\\fs17\\cf1 Public\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Const\\plain\\f4\\fs17  SWP_SHOWWINDOW = &H40\r\n\\par \\plain\\f4\\fs17\\cf1 Public\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Const\\plain\\f4\\fs17  TOPMOST_FLAGS = SWP_NOMOVE \\plain\\f4\\fs17\\cf1 Or\\plain\\f4\\fs17  SWP_NOSIZE\r\n\\par \\plain\\f4\\fs17\\cf1 Public\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Declare\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Function\\plain\\f4\\fs17  SetWindowPos \\plain\\f4\\fs17\\cf1 Lib\\plain\\f4\\fs17  \"user32\" (\\plain\\f4\\fs17\\cf1 ByVal\\plain\\f4\\fs17  hwnd \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Long\\plain\\f4\\fs17 , \\plain\\f4\\fs17\\cf1 ByVal\\plain\\f4\\fs17  hWndInsertAfter \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Long\\plain\\f4\\fs17 , \\plain\\f4\\fs17\\cf1 ByVal\\plain\\f4\\fs17  x \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Long\\plain\\f4\\fs17 , y, \\plain\\f4\\fs17\\cf1 ByVal\\plain\\f4\\fs17  cx \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Long\\plain\\f4\\fs17 , \\plain\\f4\\fs17\\cf1 ByVal\\plain\\f4\\fs17  cy \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Long\\plain\\f4\\fs17 , \\plain\\f4\\fs17\\cf1 ByVal\\plain\\f4\\fs17  wFlags \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Long\\plain\\f4\\fs17 ) \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Long\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 Public\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Sub\\plain\\f4\\fs17  MakeNormal(Handle \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Long\\plain\\f4\\fs17 )\r\n\\par SetWindowPos Handle, HWND_NOTOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS\r\n\\par \\plain\\f4\\fs17\\cf1 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Sub\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 Public\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Sub\\plain\\f4\\fs17  MakeTopMost(Handle \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Long\\plain\\f4\\fs17 )\r\n\\par SetWindowPos Handle, HWND_TOPMOST, 0, 0, 0, 0, TOPMOST_FLAGS\r\n\\par \\plain\\f4\\fs17\\cf1 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Sub\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  71.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 Make a new project. Add a module. To the form add two command button. \r\n\\par \r\n\\par \r\n\\par }\r\n",
  72.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1033\\pard\\plain\\f4\\fs17\\cf2 'Add this code to the first command button:(On Top)\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 Private\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Sub\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf0 Command\\plain\\f4\\fs17 1_Click()\r\n\\par MakeTopMost \\plain\\f4\\fs17\\cf0 Me\\plain\\f4\\fs17 .hwnd \\plain\\f4\\fs17\\cf2 'Put it on top\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf1 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Sub\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf2 'Add this code to the second command button:(Off the top)\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 Private\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Sub\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf0 Command\\plain\\f4\\fs17 2_Click()\r\n\\par MakeNormal \\plain\\f4\\fs17\\cf0 Me\\plain\\f4\\fs17 .hwnd \\plain\\f4\\fs17\\cf2 'Take it off the top\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf1 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Sub\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  73.             "ParentID": 8
  74.         },
  75.         {
  76.             "ID": 10,
  77.             "Description": "Move with no title bar",
  78.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17 \r\n\\par }\r\n",
  79.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\f4\\fs17 Make a new project. Set the forms ControlBox, MinButton and MaxButton properties to false. Clear it's caption. \\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  80.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf1 'Add this code to the form's General Declartions procedure:\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf2 Private\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Declare\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Function\\plain\\f4\\fs17  SendMessage \\plain\\f4\\fs17\\cf2 Lib\\plain\\f4\\fs17  \"User32\" _\r\n\\par \\plain\\f4\\fs17\\cf2 Alias\\plain\\f4\\fs17  \"SendMessageA\" (\\plain\\f4\\fs17\\cf2 ByVal\\plain\\f4\\fs17  hWnd \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Long\\plain\\f4\\fs17 , _\r\n\\par \\plain\\f4\\fs17\\cf2 ByVal\\plain\\f4\\fs17  wMsg \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Long\\plain\\f4\\fs17 , _\r\n\\par \\plain\\f4\\fs17\\cf2 ByVal\\plain\\f4\\fs17  wParam \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Long\\plain\\f4\\fs17 , _\r\n\\par lParam \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  Any) \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Long\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 Private\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Declare\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Sub\\plain\\f4\\fs17  ReleaseCapture \\plain\\f4\\fs17\\cf2 Lib\\plain\\f4\\fs17  \"User32\" ()\r\n\\par \\plain\\f4\\fs17\\cf2 Const\\plain\\f4\\fs17  WM_NCLBUTTONDOWN = &HA1\r\n\\par \\plain\\f4\\fs17\\cf2 Const\\plain\\f4\\fs17  HTCAPTION = 2\r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 'Add this code to the form's MouseMove procedure:\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf2 Private\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Sub\\plain\\f4\\fs17  Form_MouseMove(Button \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Integer\\plain\\f4\\fs17 , Shift \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Integer\\plain\\f4\\fs17 , X \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Single\\plain\\f4\\fs17 , Y \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Single\\plain\\f4\\fs17 )\r\n\\par \\plain\\f4\\fs17\\cf2 Dim\\plain\\f4\\fs17  lngReturnValue \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Long\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 If\\plain\\f4\\fs17  Button = 1 \\plain\\f4\\fs17\\cf2 Then\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 Call\\plain\\f4\\fs17  ReleaseCapture\r\n\\par lngReturnValue = SendMessage(Form1.hWnd, WM_NCLBUTTONDOWN, _\r\n\\par HTCAPTION, 0&)\r\n\\par \\plain\\f4\\fs17\\cf2 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 If\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Sub\\plain\\f4\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  81.             "ParentID": 8
  82.         },
  83.         {
  84.             "ID": 11,
  85.             "Description": "Internet Connection",
  86.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  87.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  88.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  89.             "ParentID": 0
  90.         },
  91.         {
  92.             "ID": 12,
  93.             "Description": "Disconnect",
  94.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf1 'Add this code to the module:\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf2 Public\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Const\\plain\\f4\\fs17  RAS_MAXENTRYNAME \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Integer\\plain\\f4\\fs17  = 256\r\n\\par \\plain\\f4\\fs17\\cf2 Public\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Const\\plain\\f4\\fs17  RAS_MAXDEVICETYPE \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Integer\\plain\\f4\\fs17  = 16\r\n\\par \\plain\\f4\\fs17\\cf2 Public\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Const\\plain\\f4\\fs17  RAS_MAXDEVICENAME \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Integer\\plain\\f4\\fs17  = 128\r\n\\par \\plain\\f4\\fs17\\cf2 Public\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Const\\plain\\f4\\fs17  RAS_RASCONNSIZE \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Integer\\plain\\f4\\fs17  = 412\r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf2 Public\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Type\\plain\\f4\\fs17  RasEntryName\r\n\\par dwSize \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Long\\plain\\f4\\fs17 \r\n\\par szEntryName(RAS_MAXENTRYNAME) \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Byte\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Type\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf2 Public\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Type\\plain\\f4\\fs17  RasConn\r\n\\par dwSize \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Long\\plain\\f4\\fs17 \r\n\\par hRasConn \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Long\\plain\\f4\\fs17 \r\n\\par szEntryName(RAS_MAXENTRYNAME) \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Byte\\plain\\f4\\fs17 \r\n\\par szDeviceType(RAS_MAXDEVICETYPE) \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Byte\\plain\\f4\\fs17 \r\n\\par szDeviceName(RAS_MAXDEVICENAME) \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Byte\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Type\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf2 Public\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Declare\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Function\\plain\\f4\\fs17  RasEnumConnections \\plain\\f4\\fs17\\cf2 Lib\\plain\\f4\\fs17  _\r\n\\par \"rasapi32.dll\" \\plain\\f4\\fs17\\cf2 Alias\\plain\\f4\\fs17  \"RasEnumConnectionsA\" (lpRasConn \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  _\r\n\\par Any, lpcb \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Long\\plain\\f4\\fs17 , lpcConnections \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Long\\plain\\f4\\fs17 ) \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Long\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf2 Public\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Declare\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Function\\plain\\f4\\fs17  RasHangUp \\plain\\f4\\fs17\\cf2 Lib\\plain\\f4\\fs17  \"rasapi32.dll\" \\plain\\f4\\fs17\\cf2 Alias\\plain\\f4\\fs17  _\r\n\\par \"RasHangUpA\" (\\plain\\f4\\fs17\\cf2 ByVal\\plain\\f4\\fs17  hRasConn \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Long\\plain\\f4\\fs17 ) \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Long\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 Public\\plain\\f4\\fs17  gstrISPName \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 String\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 Public\\plain\\f4\\fs17  ReturnCode \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Long\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf2 Public\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Sub\\plain\\f4\\fs17  HangUp()\r\n\\par \\plain\\f4\\fs17\\cf2 Dim\\plain\\f4\\fs17  i \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Long\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 Dim\\plain\\f4\\fs17  lpRasConn(255) \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  RasConn\r\n\\par \\plain\\f4\\fs17\\cf2 Dim\\plain\\f4\\fs17  lpcb \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Long\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 Dim\\plain\\f4\\fs17  lpcConnections \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Long\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 Dim\\plain\\f4\\fs17  hRasConn \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Long\\plain\\f4\\fs17 \r\n\\par lpRasConn(0).dwSize = RAS_RASCONNSIZE\r\n\\par lpcb = RAS_MAXENTRYNAME * lpRasConn(0).dwSize\r\n\\par lpcConnections = 0\r\n\\par ReturnCode = RasEnumConnections(lpRasConn(0), lpcb, _\r\n\\par lpcConnections)\r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf2 If\\plain\\f4\\fs17  ReturnCode = ERROR_SUCCESS \\plain\\f4\\fs17\\cf2 Then\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 For\\plain\\f4\\fs17  i = 0 \\plain\\f4\\fs17\\cf2 To\\plain\\f4\\fs17  lpcConnections - 1\r\n\\par \\plain\\f4\\fs17\\cf2 If\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf0 Trim\\plain\\f4\\fs17 (ByteToString(lpRasConn(i).szEntryName)) _\r\n\\par = \\plain\\f4\\fs17\\cf0 Trim\\plain\\f4\\fs17 (gstrISPName) \\plain\\f4\\fs17\\cf2 Then\\plain\\f4\\fs17 \r\n\\par hRasConn = lpRasConn(i).hRasConn\r\n\\par ReturnCode = RasHangUp(\\plain\\f4\\fs17\\cf2 ByVal\\plain\\f4\\fs17  hRasConn)\r\n\\par \\plain\\f4\\fs17\\cf2 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 If\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 Next\\plain\\f4\\fs17  i\r\n\\par \\plain\\f4\\fs17\\cf2 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 If\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf2 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Sub\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf2 Public\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Function\\plain\\f4\\fs17  ByteToString(bytString() \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Byte\\plain\\f4\\fs17 ) \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 String\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 Dim\\plain\\f4\\fs17  i \\plain\\f4\\fs17\\cf2 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Integer\\plain\\f4\\fs17 \r\n\\par ByteToString = \"\"\r\n\\par i = 0\r\n\\par \\plain\\f4\\fs17\\cf2 While\\plain\\f4\\fs17  bytString(i) = 0&\r\n\\par ByteToString = ByteToString & \\plain\\f4\\fs17\\cf0 Chr\\plain\\f4\\fs17 (bytString(i))\r\n\\par i = i + 1\r\n\\par \\plain\\f4\\fs17\\cf2 Wend\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Function\\plain\\f4\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  95.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\f4\\fs17 Make a new project. Add a module. To the form add a command button\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  96.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\f4\\fs17\\cf0 \r\n\\par \\plain\\f4\\fs17\\cf1 'Add this code to the command button:\\plain\\f4\\fs17\\cf0 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf2 Private\\plain\\f4\\fs17\\cf0  \\plain\\f4\\fs17\\cf2 Sub\\plain\\f4\\fs17\\cf0  Command1_Click()\r\n\\par \\plain\\f4\\fs17\\cf2 Call\\plain\\f4\\fs17\\cf0  HangUp\r\n\\par \\plain\\f4\\fs17\\cf2 End\\plain\\f4\\fs17\\cf0  \\plain\\f4\\fs17\\cf2 Sub\\plain\\f4\\fs17\\cf0 \r\n\\par \\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  97.             "ParentID": 11
  98.         },
  99.         {
  100.             "ID": 13,
  101.             "Description": "Create an internet shortcut",
  102.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17\\cf2 'Add this code To the module:\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Const\\plain\\f3\\fs17  NOERROR = 0\r\n\\par \\plain\\f3\\fs17\\cf1 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Const\\plain\\f3\\fs17  CSIDL_FAVORITES = &H6\r\n\\par \\plain\\f3\\fs17\\cf1 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Const\\plain\\f3\\fs17  CSIDL_DESKTOPDIRECTORY = &H10\r\n\\par \\plain\\f3\\fs17\\cf1 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Type\\plain\\f3\\fs17  SHITEMID\r\n\\par     cb \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17 \r\n\\par     abID \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Byte\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Type\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Type\\plain\\f3\\fs17  ITEMIDLIST\r\n\\par     mkid \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  SHITEMID\r\n\\par \\plain\\f3\\fs17\\cf1 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Type\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Declare\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Function\\plain\\f3\\fs17  SHGetPathFromIDList \\plain\\f3\\fs17\\cf1 Lib\\plain\\f3\\fs17  \"shell32.dll\" \\plain\\f3\\fs17\\cf1 Alias\\plain\\f3\\fs17  \"SHGetPathFromIDListA\" _\r\n\\par     (\\plain\\f3\\fs17\\cf1 ByVal\\plain\\f3\\fs17  pidl \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17 , \\plain\\f3\\fs17\\cf1 ByVal\\plain\\f3\\fs17  pszPath \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 String\\plain\\f3\\fs17 ) \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Declare\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Function\\plain\\f3\\fs17  SHGetSpecialFolderLocation \\plain\\f3\\fs17\\cf1 Lib\\plain\\f3\\fs17  \"shell32.dll\" _\r\n\\par     (\\plain\\f3\\fs17\\cf1 ByVal\\plain\\f3\\fs17  hwndOwner \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17 , \\plain\\f3\\fs17\\cf1 ByVal\\plain\\f3\\fs17  nFolder \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17 , pidl \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  ITEMIDLIST) \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Function\\plain\\f3\\fs17  GetSpecialPath(CSIDL \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17 ) \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 String\\plain\\f3\\fs17 \r\n\\par   \\plain\\f3\\fs17\\cf1 Dim\\plain\\f3\\fs17  r \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17 \r\n\\par   \\plain\\f3\\fs17\\cf1 Dim\\plain\\f3\\fs17  path \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 String\\plain\\f3\\fs17 \r\n\\par   \\plain\\f3\\fs17\\cf1 Dim\\plain\\f3\\fs17  IDL \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  ITEMIDLIST\r\n\\par \\plain\\f3\\fs17\\cf2 'fill the idl structure with the specified folder item   \\plain\\f3\\fs17 \r\n\\par     r = SHGetSpecialFolderLocation(\\plain\\f3\\fs17\\cf0 Me\\plain\\f3\\fs17 .hwnd, CSIDL, IDL)\r\n\\par     \\plain\\f3\\fs17\\cf1 If\\plain\\f3\\fs17  r = NOERROR \\plain\\f3\\fs17\\cf1 Then\\plain\\f3\\fs17 \r\n\\par       path$ = \\plain\\f3\\fs17\\cf0 Space\\plain\\f3\\fs17 $(512)\r\n\\par       r = SHGetPathFromIDList(\\plain\\f3\\fs17\\cf1 ByVal\\plain\\f3\\fs17  IDL.mkid.cb, \\plain\\f3\\fs17\\cf1 ByVal\\plain\\f3\\fs17  path$)\r\n\\par       GetSpecialPath = \\plain\\f3\\fs17\\cf0 Left\\plain\\f3\\fs17 $(path, \\plain\\f3\\fs17\\cf0 InStr\\plain\\f3\\fs17 (path, \\plain\\f3\\fs17\\cf0 Chr\\plain\\f3\\fs17 $(0)) - 1)\r\n\\par       \\plain\\f3\\fs17\\cf1 Exit\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Function\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf1 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 If\\plain\\f3\\fs17 \r\n\\par \r\n\\par    GetSpecialPath = \"\"\r\n\\par \\plain\\f3\\fs17\\cf1 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Function\\plain\\f3\\fs17 \r\n\\par \r\n\\par }\r\n",
  103.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 Make a new project. Add a module. To the form add a command button\r\n\\par }\r\n",
  104.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1033\\pard\\plain\\f4\\fs17\\cf2 'Add this code to the command button:\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 Private\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Sub\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf0 Command\\plain\\f4\\fs17 1_Click() \r\n\\par \\plain\\f4\\fs17\\cf1 Dim\\plain\\f4\\fs17  URLpath \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 String\\plain\\f4\\fs17  \r\n\\par \\plain\\f4\\fs17\\cf1 Dim\\plain\\f4\\fs17  CSIDLpath \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 String\\plain\\f4\\fs17  \r\n\\par \\plain\\f4\\fs17\\cf1 Dim\\plain\\f4\\fs17  nameofLink \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 String\\plain\\f4\\fs17  \r\n\\par \\plain\\f4\\fs17\\cf1 Dim\\plain\\f4\\fs17  ff \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Integer\\plain\\f4\\fs17  \r\n\\par URLpath = \"http://microsoft.com/\" \r\n\\par CSIDLpath = GetSpecialPath(CSIDL_FAVORITES) & \"\\\\\" \r\n\\par nameofLink = \"The Microsoft Site.url\" \r\n\\par ff = FreeFile \r\n\\par \\plain\\f4\\fs17\\cf1 Open\\plain\\f4\\fs17  CSIDLpath & nameofLink \\plain\\f4\\fs17\\cf1 For\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Output\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  #ff \r\n\\par \\plain\\f4\\fs17\\cf1 Print\\plain\\f4\\fs17  #ff, \"[InternetShortcut]\" \r\n\\par \\plain\\f4\\fs17\\cf1 Print\\plain\\f4\\fs17  #ff, \"URL=\" & URLpath \r\n\\par \\plain\\f4\\fs17\\cf1 Close\\plain\\f4\\fs17  #ff\r\n\\par \\plain\\f4\\fs17\\cf1 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Sub\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  105.             "ParentID": 11
  106.         },
  107.         {
  108.             "ID": 14,
  109.             "Description": "Mouse",
  110.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  111.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss\\fprq2 System;}{\\f6\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  112.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17 \r\n\\par \r\n\\par }\r\n",
  113.             "ParentID": 0
  114.         },
  115.         {
  116.             "ID": 17,
  117.             "Description": "Double Click time",
  118.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17\\cf2 'Add this code to the module:\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Declare\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Function\\plain\\lang1032\\f3\\fs17  SetDoubleClickTime \\plain\\lang1032\\f3\\fs17\\cf1 Lib\\plain\\lang1032\\f3\\fs17  \"user32\" _\r\n\\par (\\plain\\lang1032\\f3\\fs17\\cf1 ByVal\\plain\\lang1032\\f3\\fs17  wCount \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Long\\plain\\lang1032\\f3\\fs17 ) \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par }\r\n",
  119.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17 Make a new project. Add a module. To the form add a command button and a text box. \r\n\\par (Average time is 333) \r\n\\par }\r\n",
  120.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17\\cf1 'Add this code to the command button:\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf0 Command\\plain\\f3\\fs17 1_Click()\r\n\\par SetDoubleClickTime \\plain\\f3\\fs17\\cf0 Text\\plain\\f3\\fs17 1.\\plain\\f3\\fs17\\cf0 Text\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17 \r\n\\par \r\n\\par }\r\n",
  121.             "ParentID": 14
  122.         },
  123.         {
  124.             "ID": 18,
  125.             "Description": "Files",
  126.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  127.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\f4\\fs17 Files related routines\r\n\\par \\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  128.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  129.             "ParentID": 0
  130.         },
  131.         {
  132.             "ID": 19,
  133.             "Description": "Get and change a file's date",
  134.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17\\cf1 'Add this code to the module:\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Option\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Explicit\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Const\\plain\\f3\\fs17  OFS_MAXPATHNAME = 260\r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Const\\plain\\f3\\fs17  OF_READWRITE = &H2\r\n\\par \\plain\\f3\\fs17\\cf2 Type\\plain\\f3\\fs17  OFSTRUCT\r\n\\par cBytes \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Byte\\plain\\f3\\fs17 \r\n\\par fFixedDisk \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Byte\\plain\\f3\\fs17 \r\n\\par nErrCode \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Integer\\plain\\f3\\fs17 \r\n\\par Reserved1 \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Integer\\plain\\f3\\fs17 \r\n\\par Reserved2 \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Integer\\plain\\f3\\fs17 \r\n\\par szPathName(OFS_MAXPATHNAME) \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Byte\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Type\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Type\\plain\\f3\\fs17  FILETIME\r\n\\par dwLowDateTime \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par dwHighDateTime \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Type\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Type\\plain\\f3\\fs17  SYSTEMTIME\r\n\\par wYear \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Integer\\plain\\f3\\fs17 \r\n\\par wMonth \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Integer\\plain\\f3\\fs17 \r\n\\par wDayOfWeek \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Integer\\plain\\f3\\fs17 \r\n\\par wDay \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Integer\\plain\\f3\\fs17 \r\n\\par wHour \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Integer\\plain\\f3\\fs17 \r\n\\par wMinute \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Integer\\plain\\f3\\fs17 \r\n\\par wSecond \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Integer\\plain\\f3\\fs17 \r\n\\par wMilliseconds \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Type\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Type\\plain\\f3\\fs17  TIME_ZONE_INFORMATION\r\n\\par Bias \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par StandardName(32) \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Integer\\plain\\f3\\fs17 \r\n\\par StandardDate \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  SYSTEMTIME\r\n\\par StandardBias \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par DaylightName(32) \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Integer\\plain\\f3\\fs17 \r\n\\par DaylightDate \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  SYSTEMTIME\r\n\\par DaylightBias \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Type\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Declare\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17  GetLocalTime \\plain\\f3\\fs17\\cf2 Lib\\plain\\f3\\fs17  \"kernel32\" (lpSystemTime \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  SYSTEMTIME)\r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Declare\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  GetFileTime \\plain\\f3\\fs17\\cf2 Lib\\plain\\f3\\fs17  \"kernel32\" (\\plain\\f3\\fs17\\cf2 ByVal\\plain\\f3\\fs17  hFile \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 , lpCreationTime \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  FILETIME, lpLastAccessTime \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  FILETIME, lpLastWriteTime \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  FILETIME) \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Declare\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  SetFileTime \\plain\\f3\\fs17\\cf2 Lib\\plain\\f3\\fs17  \"kernel32\" (\\plain\\f3\\fs17\\cf2 ByVal\\plain\\f3\\fs17  hFile \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 , lpCreationTime \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  FILETIME, lpLastAccessTime \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  FILETIME, lpLastWriteTime \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  FILETIME) \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Declare\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  FileTimeToSystemTime \\plain\\f3\\fs17\\cf2 Lib\\plain\\f3\\fs17  \"kernel32\" (lpFileTime \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  FILETIME, lpSystemTime \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  SYSTEMTIME) \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Declare\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  SystemTimeToFileTime \\plain\\f3\\fs17\\cf2 Lib\\plain\\f3\\fs17  \"kernel32\" (lpSystemTime \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  SYSTEMTIME, lpFileTime \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  FILETIME) \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Declare\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  OpenFile \\plain\\f3\\fs17\\cf2 Lib\\plain\\f3\\fs17  \"kernel32\" (\\plain\\f3\\fs17\\cf2 ByVal\\plain\\f3\\fs17  lpFileName \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 , lpReOpenBuff \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  OFSTRUCT, \\plain\\f3\\fs17\\cf2 ByVal\\plain\\f3\\fs17  wStyle \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 ) \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Declare\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  CloseHandle \\plain\\f3\\fs17\\cf2 Lib\\plain\\f3\\fs17  \"kernel32\" (\\plain\\f3\\fs17\\cf2 ByVal\\plain\\f3\\fs17  hFile \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 ) \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Type\\plain\\f3\\fs17  SHELLEXECUTEINFO\r\n\\par cbSize \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par fMask \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par hwnd \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par lpVerb \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 \r\n\\par lpFile \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 \r\n\\par lpParameters \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 \r\n\\par lpDirectory \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 \r\n\\par nShow \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par hInstApp \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par lpIDList \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par lpClass \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 \r\n\\par hkeyClass \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par dwHotKey \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par hIcon \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par hProcess \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Type\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Const\\plain\\f3\\fs17  SEE_MASK_INVOKEIDLIST = &HC\r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Const\\plain\\f3\\fs17  SEE_MASK_NOCLOSEPROCESS = &H40\r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Const\\plain\\f3\\fs17  SEE_MASK_FLAG_NO_UI = &H400\r\n\\par \\plain\\f3\\fs17\\cf2 Declare\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  ShellExecuteEX \\plain\\f3\\fs17\\cf2 Lib\\plain\\f3\\fs17  \"shell32.dll\" \\plain\\f3\\fs17\\cf2 Alias\\plain\\f3\\fs17  \"ShellExecuteEx\" (SEI \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  SHELLEXECUTEINFO) \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  GetFileDateString(CT \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  FILETIME) \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  ST \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  SYSTEMTIME\r\n\\par \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  r \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  ds \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Single\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'convert the passed FILETIME to a\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'valid SYSTEMTIME format for display\\plain\\f3\\fs17 \r\n\\par r = FileTimeToSystemTime(CT, ST)\r\n\\par \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  r \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par ds = \\plain\\f3\\fs17\\cf0 DateSerial\\plain\\f3\\fs17 (ST.wYear, ST.wMonth, ST.wDay)\r\n\\par GetFileDateString = \\plain\\f3\\fs17\\cf0 Format\\plain\\f3\\fs17 $(ds, \"DDDD MMMM D, YYYY\")\r\n\\par \\plain\\f3\\fs17\\cf2 Else\\plain\\f3\\fs17 : GetFileDateString = \"\"\r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  GetSystemDateString(ST \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  SYSTEMTIME) \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  r \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  ds \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Single\\plain\\f3\\fs17 \r\n\\par ds = \\plain\\f3\\fs17\\cf0 DateSerial\\plain\\f3\\fs17 (ST.wYear, ST.wMonth, ST.wDay)\r\n\\par \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  ds \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par GetSystemDateString = \\plain\\f3\\fs17\\cf0 Format\\plain\\f3\\fs17 $(ds, \"DDDD MMMM D, YYYY\")\r\n\\par \\plain\\f3\\fs17\\cf2 Else\\plain\\f3\\fs17 \r\n\\par GetSystemDateString = \"error!\"\r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par }\r\n",
  135.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 Make a new project. Add a module. To the form add two command buttons and four text boxes (txtFileName, txtOriginal, txtSystemDate and txtChanged)\r\n\\par \r\n\\par \r\n\\par }\r\n",
  136.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17\\cf1 'Add this code to the form's General Declarations procedure:\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Option\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Explicit\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'Add this code to the first command:(cmdChange)\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Private\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17  cmdChange_Click()\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'variables required\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Dim\\plain\\lang1032\\f3\\fs17  r \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Dim\\plain\\lang1032\\f3\\fs17  hFile \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Dim\\plain\\lang1032\\f3\\fs17  fName \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 String\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Dim\\plain\\lang1032\\f3\\fs17  tmp \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 String\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'structures required\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Dim\\plain\\lang1032\\f3\\fs17  OFS \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  OFSTRUCT\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Dim\\plain\\lang1032\\f3\\fs17  SYS_TIME \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  SYSTEMTIME\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Dim\\plain\\lang1032\\f3\\fs17  FT_CREATE \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  FILETIME\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Dim\\plain\\lang1032\\f3\\fs17  FT_ACCESS \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  FILETIME\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Dim\\plain\\lang1032\\f3\\fs17  FT_WRITE \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  FILETIME\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Dim\\plain\\lang1032\\f3\\fs17  NEW_TIME \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  FILETIME\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'assign the textbox entry to the filename\\plain\\lang1032\\f3\\fs17 \r\n\\par fName = (txtFileName)\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'open the file\\plain\\lang1032\\f3\\fs17 \r\n\\par hFile = OpenFile(fName, OFS, OF_READWRITE)\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'get the FILETIME info for the created,\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'accessed and last write info\\plain\\lang1032\\f3\\fs17 \r\n\\par r = GetFileTime(hFile, FT_CREATE, FT_ACCESS, FT_WRITE)\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 '----- debug only --------------------------- 'show the system time info\\plain\\lang1032\\f3\\fs17 \r\n\\par tmp = \"Date Created:\" & vbTab & GetFileDateString(FT_CREATE) & vbCrLf\r\n\\par tmp = tmp & \"Last Access:\" & vbTab & GetFileDateString(FT_ACCESS) & vbCrLf\r\n\\par tmp = tmp & \"Last Modified:\" & vbTab & GetFileDateString(FT_WRITE)\r\n\\par txtOriginal = tmp \\plain\\lang1032\\f3\\fs17\\cf1 '--------------------------------------------\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'obtain the local system time\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 '(adjusts for the GMT deviation\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'of the local time zone)\\plain\\lang1032\\f3\\fs17 \r\n\\par GetLocalTime SYS_TIME\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 '----- debug only --------------------------- 'show the system time info\\plain\\lang1032\\f3\\fs17 \r\n\\par tmp = \"\"\r\n\\par tmp = \"Day:\" & vbTab & SYS_TIME.wDay & vbCrLf\r\n\\par tmp = tmp & \"Month:\" & vbTab & SYS_TIME.wMonth & vbCrLf\r\n\\par tmp = tmp & \"Year:\" & vbTab & SYS_TIME.wYear & vbCrLf\r\n\\par tmp = tmp & \"String:\" & vbTab & GetSystemDateString(SYS_TIME)\r\n\\par txtSystemDate = tmp \\plain\\lang1032\\f3\\fs17\\cf1 '--------------------------------------------\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'convert the system time to a valid file time\\plain\\lang1032\\f3\\fs17 \r\n\\par r = SystemTimeToFileTime(SYS_TIME, NEW_TIME)\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'set the created, accessed and modified dates all\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'to the new dates. A null (0&) could be passed as\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'any of the NEW_TIME parameters to leave that date unchanged.\\plain\\lang1032\\f3\\fs17 \r\n\\par r = SetFileTime(hFile, NEW_TIME, NEW_TIME, NEW_TIME)\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 're-read the updated FILETIME info for the created,\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'accessed and last write info\\plain\\lang1032\\f3\\fs17 \r\n\\par r = GetFileTime(hFile, FT_CREATE, FT_ACCESS, FT_WRITE)\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 '----- debug only --------------------------- 'show the system time info\\plain\\lang1032\\f3\\fs17 \r\n\\par tmp = \"New Date Created:\" & vbTab & GetFileDateString(FT_CREATE) & vbCrLf\r\n\\par tmp = tmp & \"New Last Access:\" & vbTab & GetFileDateString(FT_ACCESS) & vbCrLf\r\n\\par tmp = tmp & \"New Last Modified:\" & vbTab & GetFileDateString(FT_WRITE)\r\n\\par txtChanged = tmp \\plain\\lang1032\\f3\\fs17\\cf1 '--------------------------------------------\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'clean up by closing the file\\plain\\lang1032\\f3\\fs17 \r\n\\par r = CloseHandle(hFile)\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'Add this code to the second command button:(cmdProveIt)\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Private\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17  cmdProveIt_Click()\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Dim\\plain\\lang1032\\f3\\fs17  SEI \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  SHELLEXECUTEINFO\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Dim\\plain\\lang1032\\f3\\fs17  r \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'Fill in the SHELLEXECUTEINFO structure\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'and call the ShellExecuteEX API\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 With\\plain\\lang1032\\f3\\fs17  SEI\r\n\\par .cbSize = \\plain\\lang1032\\f3\\fs17\\cf0 Len\\plain\\lang1032\\f3\\fs17 (SEI)\r\n\\par .fMask = SEE_MASK_NOCLOSEPROCESS \\plain\\lang1032\\f3\\fs17\\cf2 Or\\plain\\lang1032\\f3\\fs17  SEE_MASK_INVOKEIDLIST \\plain\\lang1032\\f3\\fs17\\cf2 Or\\plain\\lang1032\\f3\\fs17  SEE_MASK_FLAG_NO_UI\r\n\\par .hwnd = \\plain\\lang1032\\f3\\fs17\\cf0 Me\\plain\\lang1032\\f3\\fs17 .hwnd\r\n\\par .lpVerb = \"properties\"\r\n\\par .lpFile = (txtFileName)\r\n\\par .lpParameters = vbNullChar\r\n\\par .lpDirectory = vbNullChar\r\n\\par .nShow = 0\r\n\\par .hInstApp = 0\r\n\\par .lpIDList = 0\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 With\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'call the API\\plain\\lang1032\\f3\\fs17 \r\n\\par r = ShellExecuteEX(SEI)\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'Add this code to the form's Unload procedure:\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Private\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17  Form_Unload(Cancel \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Integer\\plain\\lang1032\\f3\\fs17 )\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Set\\plain\\lang1032\\f3\\fs17  Form1 = \\plain\\lang1032\\f3\\fs17\\cf2 Nothing\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par }\r\n",
  137.             "ParentID": 18
  138.         },
  139.         {
  140.             "ID": 20,
  141.             "Description": "System",
  142.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  143.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\f4\\fs17 System Related Routines\r\n\\par \\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  144.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  145.             "ParentID": 0
  146.         },
  147.         {
  148.             "ID": 21,
  149.             "Description": "Adding an app to the system tray",
  150.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  151.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 Make a new project. To the form add a picture box, a menu and a timer. Change it's Interval property to 100. \r\n\\par \r\n\\par \r\n\\par }\r\n",
  152.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17\\cf1 'Add this code to the form's General Declarations procedure:\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Option\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Explicit\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Type\\plain\\f3\\fs17  NOTIFYICONDATA\r\n\\par cbSize \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par hWnd \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par uId \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par uFlags \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par ucallbackMessage \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par hIcon \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par szTip \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17  * 64\r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Type\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Const\\plain\\f3\\fs17  NIM_ADD = &H0\r\n\\par \\plain\\f3\\fs17\\cf2 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Const\\plain\\f3\\fs17  NIM_MODIFY = &H1\r\n\\par \\plain\\f3\\fs17\\cf2 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Const\\plain\\f3\\fs17  NIM_DELETE = &H2\r\n\\par \\plain\\f3\\fs17\\cf2 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Const\\plain\\f3\\fs17  WM_MOUSEMOVE = &H200\r\n\\par \\plain\\f3\\fs17\\cf2 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Const\\plain\\f3\\fs17  NIF_MESSAGE = &H1\r\n\\par \\plain\\f3\\fs17\\cf2 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Const\\plain\\f3\\fs17  NIF_ICON = &H2\r\n\\par \\plain\\f3\\fs17\\cf2 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Const\\plain\\f3\\fs17  NIF_TIP = &H4\r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Declare\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  Shell_NotifyIcon \\plain\\f3\\fs17\\cf2 Lib\\plain\\f3\\fs17  \"shell32\" \\plain\\f3\\fs17\\cf2 Alias\\plain\\f3\\fs17  \"Shell_NotifyIconA\" (\\plain\\f3\\fs17\\cf2 ByVal\\plain\\f3\\fs17  dwMessage \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 , pnid \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  NOTIFYICONDATA) \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Boolean\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  t \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  NOTIFYICONDATA\r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 'Add this code to the form's QueryUnload procedure:\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17  Form_QueryUnload(Cancel \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Integer\\plain\\f3\\fs17 , UnloadMode \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Integer\\plain\\f3\\fs17 )\r\n\\par \\plain\\f3\\fs17\\cf0 Timer\\plain\\f3\\fs17 1.Enabled = \\plain\\f3\\fs17\\cf2 False\\plain\\f3\\fs17 \r\n\\par t.cbSize = \\plain\\f3\\fs17\\cf0 Len\\plain\\f3\\fs17 (t)\r\n\\par t.hWnd = Picture1.hWnd\r\n\\par t.uId = 1&\r\n\\par Shell_NotifyIcon NIM_DELETE, t\r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 'Add this code to the picture box's MouseMove procedure:\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17  Picture1_MouseMove(Button \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Integer\\plain\\f3\\fs17 , Shift \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Integer\\plain\\f3\\fs17 , X \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Single\\plain\\f3\\fs17 , Y \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Single\\plain\\f3\\fs17 )\r\n\\par \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf0 Hex\\plain\\f3\\fs17 (X) = \"1E3C\" \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf0 Me\\plain\\f3\\fs17 .PopupMenu menu1\r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 'Add this code to the timer:\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf0 Timer\\plain\\f3\\fs17 1_Timer()\r\n\\par \\plain\\f3\\fs17\\cf2 Static\\plain\\f3\\fs17  i \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 , img \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par t.cbSize = \\plain\\f3\\fs17\\cf0 Len\\plain\\f3\\fs17 (t)\r\n\\par t.hWnd = Picture1.hWnd\r\n\\par t.uId = 1&\r\n\\par t.uFlags = NIF_ICON\r\n\\par t.hIcon = Picture1.Picture\r\n\\par Shell_NotifyIcon NIM_MODIFY, t\r\n\\par \\plain\\f3\\fs17\\cf0 Timer\\plain\\f3\\fs17 1.Enabled = \\plain\\f3\\fs17\\cf2 True\\plain\\f3\\fs17 \r\n\\par i = i + 1\r\n\\par \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  i = 2 \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17  i = 0\r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 'Add this code to the form's load procedure:\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17  Form_Load()\r\n\\par t.cbSize = \\plain\\f3\\fs17\\cf0 Len\\plain\\f3\\fs17 (t)\r\n\\par t.hWnd = Picture1.hWnd\r\n\\par t.uId = 1&\r\n\\par t.uFlags = NIF_ICON \\plain\\f3\\fs17\\cf2 Or\\plain\\f3\\fs17  NIF_TIP \\plain\\f3\\fs17\\cf2 Or\\plain\\f3\\fs17  NIF_MESSAGE\r\n\\par t.ucallbackMessage = WM_MOUSEMOVE\r\n\\par t.hIcon = Picture1.Picture\r\n\\par t.szTip = \"System Tray\" & \\plain\\f3\\fs17\\cf0 Chr\\plain\\f3\\fs17 $(0)\r\n\\par Shell_NotifyIcon NIM_ADD, t\r\n\\par \\plain\\f3\\fs17\\cf0 Timer\\plain\\f3\\fs17 1.Enabled = \\plain\\f3\\fs17\\cf2 True\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf0 Me\\plain\\f3\\fs17 .\\plain\\f3\\fs17\\cf0 Hide\\plain\\f3\\fs17 \r\n\\par App.TaskVisible = \\plain\\f3\\fs17\\cf2 False\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17 \r\n\\par \r\n\\par }\r\n",
  153.             "ParentID": 20
  154.         },
  155.         {
  156.             "ID": 23,
  157.             "Description": "Registry Manipulation",
  158.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17 \r\n\\par }\r\n",
  159.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  160.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  161.             "ParentID": 0
  162.         },
  163.         {
  164.             "ID": 24,
  165.             "Description": "Change registered owner",
  166.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17\\cf1 'Add this code to the module:\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Const\\plain\\lang1032\\f3\\fs17  HKEY_LOCAL_MACHINE = &H80000002\r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Declare\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Function\\plain\\lang1032\\f3\\fs17  RegCreateKey \\plain\\lang1032\\f3\\fs17\\cf2 Lib\\plain\\lang1032\\f3\\fs17  _\r\n\\par \"advapi32.dll\" \\plain\\lang1032\\f3\\fs17\\cf2 Alias\\plain\\lang1032\\f3\\fs17  \"RegCreateKeyA\" _\r\n\\par (\\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  Hkey \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 , \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  lpSubKey \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  _\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 String\\plain\\lang1032\\f3\\fs17 , phkResult \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 ) \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Declare\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Function\\plain\\lang1032\\f3\\fs17  RegCloseKey \\plain\\lang1032\\f3\\fs17\\cf2 Lib\\plain\\lang1032\\f3\\fs17  _\r\n\\par \"advapi32.dll\" (\\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  Hkey \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 ) \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Declare\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Function\\plain\\lang1032\\f3\\fs17  RegSetValueEx \\plain\\lang1032\\f3\\fs17\\cf2 Lib\\plain\\lang1032\\f3\\fs17  _\r\n\\par \"advapi32.dll\" \\plain\\lang1032\\f3\\fs17\\cf2 Alias\\plain\\lang1032\\f3\\fs17  \"RegSetValueExA\" _\r\n\\par (\\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  Hkey \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 , \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  _\r\n\\par lpValueName \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 String\\plain\\lang1032\\f3\\fs17 , \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  _\r\n\\par Reserved \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 , \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  dwType _\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 , lpData \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  Any, \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  _\r\n\\par cbData \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 ) \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Const\\plain\\lang1032\\f3\\fs17  REG_SZ = 1\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Const\\plain\\lang1032\\f3\\fs17  REG_DWORD = 4\r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17  savestring(Hkey \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 , strPath \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 String\\plain\\lang1032\\f3\\fs17 , _\r\n\\par strValue \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 String\\plain\\lang1032\\f3\\fs17 , strdata \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 String\\plain\\lang1032\\f3\\fs17 )\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Dim\\plain\\lang1032\\f3\\fs17  keyhand \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Dim\\plain\\lang1032\\f3\\fs17  r \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par r = RegCreateKey(Hkey, strPath, keyhand)\r\n\\par r = RegSetValueEx(keyhand, strValue, 0, _\r\n\\par REG_SZ, \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  strdata, \\plain\\lang1032\\f3\\fs17\\cf0 Len\\plain\\lang1032\\f3\\fs17 (strdata))\r\n\\par r = RegCloseKey(keyhand)\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par \r\n\\par }\r\n",
  167.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\f4\\fs17 I am sure the one who owns the computer, will hate you for this:\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par Make a new project. Add a module. To the form add two text boxes and a command button. \r\n\\par \r\n\\par \r\n\\par }\r\n",
  168.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17\\cf1 'Add this code to the command button:\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf0 Command\\plain\\f3\\fs17 1_Click()\r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 'Prompts for the new name of the Registered Organization\\plain\\f3\\fs17 \r\n\\par strOrganization$ = \\plain\\f3\\fs17\\cf0 Text\\plain\\f3\\fs17 1.\\plain\\f3\\fs17\\cf0 Text\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  strOrganization$ = \"\" \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par MsgBox \"Empty String\", vbCritical, \"Error\"\r\n\\par \\plain\\f3\\fs17\\cf2 Exit\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 'Saves string (Organization) to the registry\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 Call\\plain\\f3\\fs17  savestring(HKEY_LOCAL_MACHINE, _\r\n\\par \"Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\", _\r\n\\par \"RegisteredOrganization\", strOrganization$)\r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 'Prompts for the new name of the Registered Owner\\plain\\f3\\fs17 \r\n\\par strOwner$ = \\plain\\f3\\fs17\\cf0 Text\\plain\\f3\\fs17 2.\\plain\\f3\\fs17\\cf0 Text\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  strOwner$ = \"\" \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par MsgBox \"Empty String\", vbCritical, \"Error\"\r\n\\par \\plain\\f3\\fs17\\cf2 Exit\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 'Saves string (Owner) to the registry\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 Call\\plain\\f3\\fs17  savestring(HKEY_LOCAL_MACHINE, _\r\n\\par \"Software\\\\Microsoft\\\\Windows\\\\CurrentVersion\", _\r\n\\par \"RegisteredOwner\", strOwner$)\r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17 \r\n\\par \r\n\\par }\r\n",
  169.             "ParentID": 23
  170.         },
  171.         {
  172.             "ID": 25,
  173.             "Description": "Database",
  174.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17 \r\n\\par }\r\n",
  175.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  176.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  177.             "ParentID": 0
  178.         },
  179.         {
  180.             "ID": 27,
  181.             "Description": "Accessing INI files",
  182.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1032\\pard\\plain\\lang1033\\f4\\fs17\\cf1 'Add this code to a module\\plain\\lang1033\\f4\\fs17 \r\n\\par \\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 Declare\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  WritePrivateProfileString \\plain\\f3\\fs17\\cf2 Lib\\plain\\f3\\fs17  \"kernel32\" \\plain\\f3\\fs17\\cf2 Alias\\plain\\f3\\fs17  \"WritePrivateProfileStringA\" (\\plain\\f3\\fs17\\cf2 ByVal\\plain\\f3\\fs17  lpApplicationname \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 , \\plain\\f3\\fs17\\cf2 ByVal\\plain\\f3\\fs17  lpKeyName \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  Any, \\plain\\f3\\fs17\\cf2 ByVal\\plain\\f3\\fs17  lsString \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  Any, \\plain\\f3\\fs17\\cf2 ByVal\\plain\\f3\\fs17  lplFilename \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 ) \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 Declare\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  GetPrivateProfileInt \\plain\\f3\\fs17\\cf2 Lib\\plain\\f3\\fs17  \"kernel32\" \\plain\\f3\\fs17\\cf2 Alias\\plain\\f3\\fs17  \"GetPriviteProfileIntA\" (\\plain\\f3\\fs17\\cf2 ByVal\\plain\\f3\\fs17  lpApplicationname \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 , \\plain\\f3\\fs17\\cf2 ByVal\\plain\\f3\\fs17  lpKeyName \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 , \\plain\\f3\\fs17\\cf2 ByVal\\plain\\f3\\fs17  nDefault \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 , \\plain\\f3\\fs17\\cf2 ByVal\\plain\\f3\\fs17  lpFileName \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 ) \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 Declare\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  GetPrivateProfileString \\plain\\f3\\fs17\\cf2 Lib\\plain\\f3\\fs17  \"kernel32\" \\plain\\f3\\fs17\\cf2 Alias\\plain\\f3\\fs17  \"GetPrivateProfileStringA\" (\\plain\\f3\\fs17\\cf2 ByVal\\plain\\f3\\fs17  lpApplicationname \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 , \\plain\\f3\\fs17\\cf2 ByVal\\plain\\f3\\fs17  lpKeyName \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 , \\plain\\f3\\fs17\\cf2 ByVal\\plain\\f3\\fs17  lpDefault \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 , \\plain\\f3\\fs17\\cf2 ByVal\\plain\\f3\\fs17  lpReturnedString \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 , \\plain\\f3\\fs17\\cf2 ByVal\\plain\\f3\\fs17  nSize \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 , \\plain\\f3\\fs17\\cf2 ByVal\\plain\\f3\\fs17  lpFileName \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 ) \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\lang1033\\f4\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Global\\plain\\f3\\fs17  File\r\n\\par \\plain\\f3\\fs17\\cf2 Global\\plain\\f3\\fs17  appname\r\n\\par \\plain\\f3\\fs17\\cf2 Global\\plain\\f3\\fs17  Keyname\r\n\\par \\plain\\f3\\fs17\\cf2 Global\\plain\\f3\\fs17  Value\r\n\\par \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  Store(File \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 , Heading \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 , Section \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 , Value \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 )\r\n\\par \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  lpAppName \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 , lpFileName \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 , lpKeyName \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 , lpString \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  U \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par lpAppName = Heading\r\n\\par lpKeyName = Section\r\n\\par lpString = Value\r\n\\par lpFileName = File\r\n\\par U = WritePrivateProfileString(lpAppName, lpKeyName, lpString, lpFileName)\r\n\\par \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  U = 0 \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf0 Beep\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 Else\\plain\\f3\\fs17 \r\n\\par Store = \"Success\"\r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  GetValue(File \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 , Heading \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 , Section \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 )\r\n\\par \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  x \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  Temp \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17  * 50\r\n\\par \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  lpAppName \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 , lpKeyName \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 , lpDefault \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 , lpFileName \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 \r\n\\par \r\n\\par lpAppName = Heading\r\n\\par lpKeyName = Section\r\n\\par lpDefault = no\r\n\\par lpFileName = File\r\n\\par \r\n\\par x = GetPrivateProfileString(lpAppName, lpKeyName, lpDefault, Temp, \\plain\\f3\\fs17\\cf0 Len\\plain\\f3\\fs17 (Temp), lpFileName)\r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  x = 0 \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf0 Beep\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 Else\\plain\\f3\\fs17 \r\n\\par GetValue = \\plain\\f3\\fs17\\cf0 Trim\\plain\\f3\\fs17 (Temp)\r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 \r\n\\par }\r\n",
  183.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 How to access INI (Installation Files) \r\n\\par \r\n\\par \r\n\\par \r\n\\par }\r\n",
  184.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\f4\\fs17\\cf1 'Call\\plain\\lang1032\\f3\\fs17\\cf1  the functions\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par - Store: Variable = Store(<File>, <Heading>, <Section>, <Value>)\r\n\\par - GetValue: Variable = GetValue(<File>, <Heading>, <Section>)\r\n\\par \r\n\\par \r\n\\par \r\n\\par }\r\n",
  185.             "ParentID": 18
  186.         },
  187.         {
  188.             "ID": 28,
  189.             "Description": "String Manipulation",
  190.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17 \r\n\\par }\r\n",
  191.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  192.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  193.             "ParentID": 0
  194.         },
  195.         {
  196.             "ID": 29,
  197.             "Description": "Item count",
  198.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17\\cf1 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Function\\plain\\lang1032\\f3\\fs17  ItemCount(\\plain\\lang1032\\f3\\fs17\\cf1 ByVal\\plain\\lang1032\\f3\\fs17  sOrigStr \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 String\\plain\\lang1032\\f3\\fs17 , \\plain\\lang1032\\f3\\fs17\\cf1 ByVal\\plain\\lang1032\\f3\\fs17  sDelim \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 String\\plain\\lang1032\\f3\\fs17 ) \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 '\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 ' Returns the number of occurances of sDelim in szStr)\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 '\\plain\\lang1032\\f3\\fs17 \r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 Dim\\plain\\lang1032\\f3\\fs17  lCount \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 Dim\\plain\\lang1032\\f3\\fs17  lPos \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 Dim\\plain\\lang1032\\f3\\fs17  lPos2 \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 Dim\\plain\\lang1032\\f3\\fs17  bOver \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Boolean\\plain\\lang1032\\f3\\fs17 \r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 Dim\\plain\\lang1032\\f3\\fs17  lDelim \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par     \r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 On\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Error\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 GoTo\\plain\\lang1032\\f3\\fs17  vbErrorHandler\r\n\\par     \r\n\\par     lPos = 0\r\n\\par     lCount = 0\r\n\\par     \r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 If\\plain\\lang1032\\f3\\fs17  sOrigStr = \"\" \\plain\\lang1032\\f3\\fs17\\cf1 Then\\plain\\lang1032\\f3\\fs17 \r\n\\par         ItemCount = 0\r\n\\par         \\plain\\lang1032\\f3\\fs17\\cf1 Exit\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Function\\plain\\lang1032\\f3\\fs17 \r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 If\\plain\\lang1032\\f3\\fs17 \r\n\\par     lDelim = \\plain\\lang1032\\f3\\fs17\\cf0 Len\\plain\\lang1032\\f3\\fs17 (sDelim)\r\n\\par     \r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 Do\\plain\\lang1032\\f3\\fs17 \r\n\\par         lPos2 = \\plain\\lang1032\\f3\\fs17\\cf0 InStr\\plain\\lang1032\\f3\\fs17 (lPos + lDelim, sOrigStr, sDelim)\r\n\\par         \\plain\\lang1032\\f3\\fs17\\cf1 If\\plain\\lang1032\\f3\\fs17  lPos2 = 0 \\plain\\lang1032\\f3\\fs17\\cf1 And\\plain\\lang1032\\f3\\fs17  lPos = 0 \\plain\\lang1032\\f3\\fs17\\cf1 Then\\plain\\lang1032\\f3\\fs17 \r\n\\par             lCount = 1\r\n\\par             \\plain\\lang1032\\f3\\fs17\\cf1 Exit\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Do\\plain\\lang1032\\f3\\fs17 \r\n\\par         \\plain\\lang1032\\f3\\fs17\\cf1 Else\\plain\\lang1032\\f3\\fs17 \r\n\\par             \\plain\\lang1032\\f3\\fs17\\cf1 If\\plain\\lang1032\\f3\\fs17  lPos2 = 0 \\plain\\lang1032\\f3\\fs17\\cf1 Then\\plain\\lang1032\\f3\\fs17 \r\n\\par                 \\plain\\lang1032\\f3\\fs17\\cf1 If\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf0 Mid\\plain\\lang1032\\f3\\fs17 $(sOrigStr, lPos + lDelim, 1) <> \"\" \\plain\\lang1032\\f3\\fs17\\cf1 Then\\plain\\lang1032\\f3\\fs17 \r\n\\par                     lCount = lCount + 1\r\n\\par                 \\plain\\lang1032\\f3\\fs17\\cf1 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 If\\plain\\lang1032\\f3\\fs17 \r\n\\par                 \\plain\\lang1032\\f3\\fs17\\cf1 Exit\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Do\\plain\\lang1032\\f3\\fs17 \r\n\\par             \\plain\\lang1032\\f3\\fs17\\cf1 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 If\\plain\\lang1032\\f3\\fs17 \r\n\\par         \\plain\\lang1032\\f3\\fs17\\cf1 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 If\\plain\\lang1032\\f3\\fs17 \r\n\\par         lCount = lCount + 1\r\n\\par         lPos = lPos2\r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 Loop\\plain\\lang1032\\f3\\fs17 \r\n\\par     ItemCount = lCount\r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 Exit\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Function\\plain\\lang1032\\f3\\fs17 \r\n\\par     \r\n\\par vbErrorHandler:\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 '\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 ' Handle Error Here !\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 '\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 End\\plain\\lang1032\\f3\\fs17  Function\r\n\\par }\r\n",
  199.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 A generic routine to count all occurances of string 'a' in string 'b'\r\n\\par }\r\n",
  200.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17\\cf2 '\\plain\\lang1033\\f4\\fs17\\cf2 Use: \\plain\\lang1033\\f4\\fs17 \r\n\\par \\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 Dim\\plain\\f3\\fs17  lCount \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17 \r\n\\par \r\n\\par lCount = ItemCount(\"\\plain\\lang1033\\f4\\fs17 Nick\\plain\\f3\\fs17  Was Here\", \"e\")\r\n\\par \r\n\\par MsgBox \"e - Found \" & lCount & \" times\"\r\n\\par }\r\n",
  201.             "ParentID": 28
  202.         },
  203.         {
  204.             "ID": 30,
  205.             "Description": "API32",
  206.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17 \r\n\\par }\r\n",
  207.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  208.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  209.             "ParentID": 0
  210.         },
  211.         {
  212.             "ID": 31,
  213.             "Description": "How long Windows has been running?",
  214.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17\\cf1 'Add this code to the module:\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Declare\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Function\\plain\\lang1032\\f3\\fs17  GetTickCount& \\plain\\lang1032\\f3\\fs17\\cf2 Lib\\plain\\lang1032\\f3\\fs17  \"kernel32\" ()\r\n\\par \r\n\\par \r\n\\par }\r\n",
  215.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\f4\\fs17 Find out time passed. This code is also used in the about box of this app!\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par Make a new project. Add a module. To the form add a command button.\r\n\\par }\r\n",
  216.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17\\cf1 'Add this code to the command button:\\plain\\f3\\fs17 \r\n\\par \r\n\\par Privat \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf0 Command\\plain\\f3\\fs17 1_Click()\r\n\\par MsgBox GetTickCount\r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par }\r\n",
  217.             "ParentID": 30
  218.         },
  219.         {
  220.             "ID": 32,
  221.             "Description": "Hardware",
  222.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17 \r\n\\par }\r\n",
  223.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  224.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  225.             "ParentID": 0
  226.         },
  227.         {
  228.             "ID": 33,
  229.             "Description": "Detect if soundcard exists",
  230.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17\\cf1 'Add this code to the module:\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Declare\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Function\\plain\\lang1032\\f3\\fs17  waveOutGetNumDevs \\plain\\lang1032\\f3\\fs17\\cf2 Lib\\plain\\lang1032\\f3\\fs17  \"winmm.dll\" _\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Alias\\plain\\lang1032\\f3\\fs17  \"waveOutGetNumDevs\" () \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par }\r\n",
  231.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17 Nice code for game programmers\r\n\\par \r\n\\par Make a new project. Add a module. To the form add a command button.\r\n\\par }\r\n",
  232.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17\\cf1 'Add this code to the command button:\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf0 Command\\plain\\f3\\fs17 1_Click()\r\n\\par \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  i \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Integer\\plain\\f3\\fs17 \r\n\\par i = waveOutGetNumDevs()\r\n\\par \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  i > 0 \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17  \r\n\\par     MsgBox \"Your system can play sound files.\", _\r\n\\par     vbInformation, \"Sound Card Test\" \r\n\\par \\plain\\f3\\fs17\\cf2 Else\\plain\\f3\\fs17  \r\n\\par     MsgBox \"Your system can not play sound Files.\", _\r\n\\par     vbInformation, \"Sound Card Test\" \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par }\r\n",
  233.             "ParentID": 32
  234.         },
  235.         {
  236.             "ID": 34,
  237.             "Description": "Keyboard",
  238.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17 \r\n\\par }\r\n",
  239.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  240.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  241.             "ParentID": 0
  242.         },
  243.         {
  244.             "ID": 35,
  245.             "Description": "Activate CAPS and NUM",
  246.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17\\cf1 'Add this code to the module:\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Const\\plain\\lang1032\\f3\\fs17  VK_CAPITAL = &H14\r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Type\\plain\\lang1032\\f3\\fs17  KeyboardBytes\r\n\\par      kbByte(0 \\plain\\lang1032\\f3\\fs17\\cf2 To\\plain\\lang1032\\f3\\fs17  255) \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Byte\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Type\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  kbArray \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  KeyboardBytes\r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Declare\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Function\\plain\\lang1032\\f3\\fs17  GetKeyState \\plain\\lang1032\\f3\\fs17\\cf2 Lib\\plain\\lang1032\\f3\\fs17  \"user32\" _ \r\n\\par (\\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  nVirtKey \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 ) \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Declare\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Function\\plain\\lang1032\\f3\\fs17  GetKeyboardState \\plain\\lang1032\\f3\\fs17\\cf2 Lib\\plain\\lang1032\\f3\\fs17  \"user32\" _ \r\n\\par (kbArray \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  KeyboardBytes) \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17  \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Declare\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Function\\plain\\lang1032\\f3\\fs17  SetKeyboardState \\plain\\lang1032\\f3\\fs17\\cf2 Lib\\plain\\lang1032\\f3\\fs17  \"user32\" _ \r\n\\par (kbArray \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  KeyboardBytes) \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par }\r\n",
  247.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 Make a new project. Add a module. To the form add three command buttons and a label. \r\n\\par \r\n\\par \r\n\\par }\r\n",
  248.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17\\cf1 'Add this code to the form's load procedure:\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17  Form_Load()\r\n\\par     \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  CapsLock() = 1 \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17  Label1 = \"On\" \\plain\\f3\\fs17\\cf2 Else\\plain\\f3\\fs17  _\r\n\\par     Label1 = \"Off\"\r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17   \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 'Add this code to the first command button:(Toggle)\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf0 Command\\plain\\f3\\fs17 1_Click()\r\n\\par     GetKeyboardState kbArray\r\n\\par     kbArray.kbByte(VK_CAPITAL) = _\r\n\\par     IIf(kbArray.kbByte(VK_CAPITAL) = 1, 0, 1)\r\n\\par     SetKeyboardState kbArray\r\n\\par     Label1 = IIf(CapsLock() = 1, \"On\", \"Off\")\r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 'Add this code to the second command button:(Turn On)\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf0 Command\\plain\\f3\\fs17 2_Click()\r\n\\par     GetKeyboardState kbArray\r\n\\par     kbArray.kbByte(VK_CAPITAL) = 1\r\n\\par     SetKeyboardState kbArray\r\n\\par     Label1 = IIf(CapsLock() = 1, \"On\", \"Off\")\r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 'Add this code to the third command button:(Turn Off)\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf0 Command\\plain\\f3\\fs17 3_Click()\r\n\\par     GetKeyboardState kbArray\r\n\\par     kbArray.kbByte(VK_CAPITAL) = 0\r\n\\par     SetKeyboardState kbArray\r\n\\par     Label1 = IIf(CapsLock() = 1, \"On\", \"Off\")\r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par }\r\n",
  249.             "ParentID": 34
  250.         },
  251.         {
  252.             "ID": 36,
  253.             "Description": "Treeview",
  254.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17 \r\n\\par }\r\n",
  255.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  256.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  257.             "ParentID": 2
  258.         },
  259.         {
  260.             "ID": 37,
  261.             "Description": "AfterLabelEdit",
  262.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f2\\fs17 \r\n\\par }\r\n",
  263.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\f4\\fs17 This code mimics the label edit function of i.e. windows explorer\r\n\\par \r\n\\par Make a new project.\r\n\\par To the form add a treeview and a timer.\r\n\\par \\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  264.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17\\cf1 'Add the following code to the form's General Declarations procedure.\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Option\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Explicit\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Dim\\plain\\lang1032\\f3\\fs17  sNodeText \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 String\\plain\\lang1032\\f3\\fs17   \\plain\\lang1032\\f3\\fs17\\cf1 ' to hold the node text\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Private\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17  Form_Load()\r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 'Add some nodes to the TreeView\\plain\\lang1032\\f3\\fs17 \r\n\\par     TreeView1.Nodes.\\plain\\lang1032\\f3\\fs17\\cf0 Add\\plain\\lang1032\\f3\\fs17  , , , \"test\"\r\n\\par     TreeView1.Nodes.\\plain\\lang1032\\f3\\fs17\\cf0 Add\\plain\\lang1032\\f3\\fs17  , , , \"test 1\"\r\n\\par     TreeView1.Nodes.\\plain\\lang1032\\f3\\fs17\\cf0 Add\\plain\\lang1032\\f3\\fs17  , , , \"test 2\"\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Private\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf0 Timer\\plain\\lang1032\\f3\\fs17 1_Timer()\r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 ' Put the TreeView in edit mode\\plain\\lang1032\\f3\\fs17 \r\n\\par     TreeView1.StartLabelEdit\r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf0 Timer\\plain\\lang1032\\f3\\fs17 1.Enabled = \\plain\\lang1032\\f3\\fs17\\cf2 False\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Private\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17  TreeView1_AfterLabelEdit(Cancel \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Integer\\plain\\lang1032\\f3\\fs17 , _\r\n\\par             NewString \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 String\\plain\\lang1032\\f3\\fs17 )\r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 ' Make sure that we have a value in the Label\\plain\\lang1032\\f3\\fs17 \r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf2 If\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf0 Len\\plain\\lang1032\\f3\\fs17 (NewString) < 1 \\plain\\lang1032\\f3\\fs17\\cf2 Then\\plain\\lang1032\\f3\\fs17 \r\n\\par         \\plain\\lang1032\\f3\\fs17\\cf1 ' The Label is empty\\plain\\lang1032\\f3\\fs17 \r\n\\par         MsgBox \"Error! You must enter a value\"\r\n\\par         \\plain\\lang1032\\f3\\fs17\\cf1 ' enable the Timer to get us back to edit mode\\plain\\lang1032\\f3\\fs17 \r\n\\par         \\plain\\lang1032\\f3\\fs17\\cf0 Timer\\plain\\lang1032\\f3\\fs17 1.Interval = 100\r\n\\par         \\plain\\lang1032\\f3\\fs17\\cf0 Timer\\plain\\lang1032\\f3\\fs17 1.Enabled = \\plain\\lang1032\\f3\\fs17\\cf2 True\\plain\\lang1032\\f3\\fs17 \r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 If\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Private\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17  TreeView1_BeforeLabelEdit(Cancel \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Integer\\plain\\lang1032\\f3\\fs17 )\r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 ' If the label is not empty store the string\\plain\\lang1032\\f3\\fs17 \r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf2 If\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf0 Len\\plain\\lang1032\\f3\\fs17 (TreeView1.SelectedItem.\\plain\\lang1032\\f3\\fs17\\cf0 Text\\plain\\lang1032\\f3\\fs17 ) > 0 \\plain\\lang1032\\f3\\fs17\\cf2 Then\\plain\\lang1032\\f3\\fs17 \r\n\\par         sNodeText = TreeView1.SelectedItem.\\plain\\lang1032\\f3\\fs17\\cf0 Text\\plain\\lang1032\\f3\\fs17 \r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 If\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Private\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17  TreeView1_KeyUp(KeyCode \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Integer\\plain\\lang1032\\f3\\fs17 , Shift \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Integer\\plain\\lang1032\\f3\\fs17 )\r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 ' If the user hits the Esc key then restore the old label\\plain\\lang1032\\f3\\fs17 \r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf2 If\\plain\\lang1032\\f3\\fs17  KeyCode = vbKeyEscape \\plain\\lang1032\\f3\\fs17\\cf2 Then\\plain\\lang1032\\f3\\fs17 \r\n\\par         TreeView1.SelectedItem.\\plain\\lang1032\\f3\\fs17\\cf0 Text\\plain\\lang1032\\f3\\fs17  = sNodeText\r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 If\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par }\r\n",
  265.             "ParentID": 36
  266.         },
  267.         {
  268.             "ID": 38,
  269.             "Description": "ListView",
  270.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17 \r\n\\par }\r\n",
  271.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  272.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  273.             "ParentID": 2
  274.         },
  275.         {
  276.             "ID": 39,
  277.             "Description": "Select entire row",
  278.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17\\cf1 'Add this code to \\plain\\lang1033\\f5\\fs17\\cf1 a\\plain\\f3\\fs17\\cf1  module:\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Const\\plain\\f3\\fs17  LVM_FIRST = &H1000\r\n\\par \\plain\\f3\\fs17\\cf2 Const\\plain\\f3\\fs17  LVM_SETEXTENDEDLISTVIEWSTYLE = LVM_FIRST + 54\r\n\\par \\plain\\f3\\fs17\\cf2 Const\\plain\\f3\\fs17  LVM_GETEXTENDEDLISTVIEWSTYLE = LVM_FIRST + 55\r\n\\par \\plain\\f3\\fs17\\cf2 Const\\plain\\f3\\fs17  LVS_EX_FULLROWSELECT = &H20\r\n\\par \\plain\\f3\\fs17\\cf2 Declare\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  SendMessageLong \\plain\\f3\\fs17\\cf2 Lib\\plain\\f3\\fs17  \"user32\" \\plain\\f3\\fs17\\cf2 Alias\\plain\\f3\\fs17  _\r\n\\par \"SendMessageA\" (\\plain\\f3\\fs17\\cf2 ByVal\\plain\\f3\\fs17  hwnd \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 , \\plain\\f3\\fs17\\cf2 ByVal\\plain\\f3\\fs17  Msg \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 , _\r\n\\par \\plain\\f3\\fs17\\cf2 ByVal\\plain\\f3\\fs17  wParam \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 , \\plain\\f3\\fs17\\cf2 ByVal\\plain\\f3\\fs17  lParam \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 ) \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17  LVFullRowSelect(lstvw \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  ListView)\r\n\\par \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  rs \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  r \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par rs = SendMessageLong(lstvw.hwnd, LVM_GETEXTENDEDLISTVIEWSTYLE, 0&, 0&)\r\n\\par rs = rs \\plain\\f3\\fs17\\cf2 Or\\plain\\f3\\fs17  LVS_EX_FULLROWSELECT\r\n\\par r = SendMessageLong(lstvw.hwnd, LVM_SETEXTENDEDLISTVIEWSTYLE, 0&, rs)\r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par }\r\n",
  279.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 Make a new project. Add a module. To the form add a list view and a command button.\r\n\\par \r\n\\par \r\n\\par }\r\n",
  280.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 'Add this code to the command button:\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf0 Command\\plain\\f3\\fs17 1_Click()\r\n\\par ListView1.ColumnHeaders.\\plain\\f3\\fs17\\cf0 Add\\plain\\f3\\fs17  , , \"Col1\"\r\n\\par ListView1.ColumnHeaders.\\plain\\f3\\fs17\\cf0 Add\\plain\\f3\\fs17  , , \"Col2\"\r\n\\par \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  itmx \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  ListItem\r\n\\par \\plain\\f3\\fs17\\cf2 Set\\plain\\f3\\fs17  itmx = ListView1.ListItems.\\plain\\f3\\fs17\\cf0 Add\\plain\\f3\\fs17 (, , \"Hello\")\r\n\\par itmx.SubItems(1) = \"World\"\r\n\\par ListView1.View = lvwReport\r\n\\par LVFullRowSelect ListView1\r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par }\r\n",
  281.             "ParentID": 38
  282.         },
  283.         {
  284.             "ID": 40,
  285.             "Description": "Combo Box",
  286.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  287.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17 \r\n\\par }\r\n",
  288.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  289.             "ParentID": 2
  290.         },
  291.         {
  292.             "ID": 41,
  293.             "Description": "Network",
  294.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17 \r\n\\par }\r\n",
  295.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  296.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  297.             "ParentID": 0
  298.         },
  299.         {
  300.             "ID": 42,
  301.             "Description": "Add a network drive",
  302.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17\\cf1 'Add this code to the module:\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Option\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Explicit\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Declare\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Function\\plain\\lang1032\\f3\\fs17  WNetAddConnection \\plain\\lang1032\\f3\\fs17\\cf2 Lib\\plain\\lang1032\\f3\\fs17  \"mpr.dll\" \\plain\\lang1032\\f3\\fs17\\cf2 Alias\\plain\\lang1032\\f3\\fs17  \"WNetAddConnectionA\" (\\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  lpszNetPath \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 String\\plain\\lang1032\\f3\\fs17 , \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  lpszPassword \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 String\\plain\\lang1032\\f3\\fs17 , \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  lpszLocalName \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 String\\plain\\lang1032\\f3\\fs17 ) \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Declare\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Function\\plain\\lang1032\\f3\\fs17  WNetCancelConnection \\plain\\lang1032\\f3\\fs17\\cf2 Lib\\plain\\lang1032\\f3\\fs17  \"mpr.dll\" \\plain\\lang1032\\f3\\fs17\\cf2 Alias\\plain\\lang1032\\f3\\fs17  \"WNetCancelConnectionA\" (\\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  lpszName \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 String\\plain\\lang1032\\f3\\fs17 , \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  bForce \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 ) \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Const\\plain\\lang1032\\f3\\fs17  WN_SUCCESS = 0 \\plain\\lang1032\\f3\\fs17\\cf1 ' The function was successful.\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Const\\plain\\lang1032\\f3\\fs17  WN_NET_ERROR = 2 \\plain\\lang1032\\f3\\fs17\\cf1 ' An error occurred on the network.\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Const\\plain\\lang1032\\f3\\fs17  WN_BAD_PASSWORD = 6 \\plain\\lang1032\\f3\\fs17\\cf1 ' The password was invalid.\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Function\\plain\\lang1032\\f3\\fs17  AddConnection(MyShareName \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 String\\plain\\lang1032\\f3\\fs17 , MyPWD \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 String\\plain\\lang1032\\f3\\fs17 , UseLetter \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 String\\plain\\lang1032\\f3\\fs17 ) \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Integer\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 On\\plain\\lang1032\\f3\\fs17  Local \\plain\\lang1032\\f3\\fs17\\cf2 Error\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 GoTo\\plain\\lang1032\\f3\\fs17  AddConnection1_Err\r\n\\par AddConnection = WNetAddConnection(MyShareName, MyPWD, UseLetter)\r\n\\par AddConnection_End:\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Exit\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Function\\plain\\lang1032\\f3\\fs17 \r\n\\par AddConnection_Err:\r\n\\par AddConnection = \\plain\\lang1032\\f3\\fs17\\cf0 Err\\plain\\lang1032\\f3\\fs17 \r\n\\par MsgBox \\plain\\lang1032\\f3\\fs17\\cf2 Error\\plain\\lang1032\\f3\\fs17 $\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Resume\\plain\\lang1032\\f3\\fs17  AddConnection_End\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Function\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par }\r\n",
  303.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 Make a new project. Add a module. To the form add three text boxes and a command button.\\plain\\f5\\fs17 \r\n\\par \r\n\\par --------------\r\n\\par \r\n\\par When running the code: \r\n\\par Type the sharename into Text1, the password into Text2 and the drive letter into Text3.\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  304.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17\\cf1 'Add this code to the command button:\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Private\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf0 Command\\plain\\lang1032\\f3\\fs17 1_Click()\r\n\\par variable = AddConnection(\\plain\\lang1032\\f3\\fs17\\cf0 Text\\plain\\lang1032\\f3\\fs17 1.\\plain\\lang1032\\f3\\fs17\\cf0 Text\\plain\\lang1032\\f3\\fs17 , \\plain\\lang1032\\f3\\fs17\\cf0 Text\\plain\\lang1032\\f3\\fs17 2.\\plain\\lang1032\\f3\\fs17\\cf0 Text\\plain\\lang1032\\f3\\fs17  , \\plain\\lang1032\\f3\\fs17\\cf0 Text\\plain\\lang1032\\f3\\fs17 3.\\plain\\lang1032\\f3\\fs17\\cf0 Text\\plain\\lang1032\\f3\\fs17 )\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par }\r\n",
  305.             "ParentID": 41
  306.         },
  307.         {
  308.             "ID": 43,
  309.             "Description": "Graphics",
  310.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17 \r\n\\par }\r\n",
  311.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  312.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  313.             "ParentID": 0
  314.         },
  315.         {
  316.             "ID": 44,
  317.             "Description": "Rotating text",
  318.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17\\cf1 'Add this code to the module:\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Declare\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Function\\plain\\lang1032\\f3\\fs17  CreateFont \\plain\\lang1032\\f3\\fs17\\cf2 Lib\\plain\\lang1032\\f3\\fs17  _\r\n\\par \"gdi32\" \\plain\\lang1032\\f3\\fs17\\cf2 Alias\\plain\\lang1032\\f3\\fs17  \"CreateFontA\" (\\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  _\r\n\\par Height \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 , \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf0 Width\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 , _\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  Escapement \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 , \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  _\r\n\\par Orientation \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 , \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  Weight _\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 , \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  Italic \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 , \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  _\r\n\\par Underline \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 , \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  StrikeOut \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  _\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 , \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  CharSet \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 , \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  _\r\n\\par OutputPrecision \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 , \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  _\r\n\\par ClipPrecision \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 , \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  Quality _\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 , \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  PitchAndFamily \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  _\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 , \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  Face \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 String\\plain\\lang1032\\f3\\fs17 ) \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Declare\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Function\\plain\\lang1032\\f3\\fs17  SelectObject _\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Lib\\plain\\lang1032\\f3\\fs17  \"gdi32\" (\\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  hdc \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 , \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  _\r\n\\par hObject \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 ) \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Declare\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Function\\plain\\lang1032\\f3\\fs17  DeleteObject _\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Lib\\plain\\lang1032\\f3\\fs17  \"gdi32\" (\\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  hObject \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 ) \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Const\\plain\\lang1032\\f3\\fs17  FW_BOLD = 700\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Const\\plain\\lang1032\\f3\\fs17  FW_NORMAL = 400\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Const\\plain\\lang1032\\f3\\fs17  ANSI_CHARSET = 0\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Const\\plain\\lang1032\\f3\\fs17  OUT_DEFAULT_PRECIS = 0\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Const\\plain\\lang1032\\f3\\fs17  CLIP_DEFAULT_PRECIS = 0\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Const\\plain\\lang1032\\f3\\fs17  PROOF_QUALITY = 2\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Const\\plain\\lang1032\\f3\\fs17  DEFAULT_PITCH = 0\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Const\\plain\\lang1032\\f3\\fs17  FF_DONTCARE = 0\r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17  dotext(angpict \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Object\\plain\\lang1032\\f3\\fs17 , _\r\n\\par angfont \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  StdFont, angtext \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 String\\plain\\lang1032\\f3\\fs17 , _\r\n\\par angle \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Single\\plain\\lang1032\\f3\\fs17 )\r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ' Parameters:\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ' angpict: picture box, etc to draw text in\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ' angfont: Font object with info about font to use\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ' angtext: text to print\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ' angle : angle, measured anti-clockwise from horizontal: ----->\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Dim\\plain\\lang1032\\f3\\fs17  newfont \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Dim\\plain\\lang1032\\f3\\fs17  oldfont \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Dim\\plain\\lang1032\\f3\\fs17  angweight \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 If\\plain\\lang1032\\f3\\fs17  angfont.Bold = \\plain\\lang1032\\f3\\fs17\\cf2 True\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Then\\plain\\lang1032\\f3\\fs17  \r\n\\par   angweight = FW_BOLD \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Else\\plain\\lang1032\\f3\\fs17 \r\n\\par   angweight = FW_NORMAL\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 If\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par newfont = CreateFont(angfont.Size * 2, _\r\n\\par 0, angle * 10, 0, angweight, _\r\n\\par angfont.Italic, angfont.Underline, _\r\n\\par angfont.Strikethrough, ANSI_CHARSET, _\r\n\\par OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, _\r\n\\par PROOF_QUALITY, DEFAULT_PITCH \\plain\\lang1032\\f3\\fs17\\cf2 Or\\plain\\lang1032\\f3\\fs17  FF_DONTCARE, _\r\n\\par angfont.\\plain\\lang1032\\f3\\fs17\\cf2 Name\\plain\\lang1032\\f3\\fs17 )\r\n\\par \r\n\\par oldfont = SelectObject(angpict.hdc, newfont)\r\n\\par \r\n\\par angpict.CurrentX = 1000\r\n\\par angpict.CurrentY = 1000\r\n\\par angpict.\\plain\\lang1032\\f3\\fs17\\cf2 Print\\plain\\lang1032\\f3\\fs17  angtext\r\n\\par \r\n\\par newfont = SelectObject(angpict.hdc, oldfont)\r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 If\\plain\\lang1032\\f3\\fs17  DeleteObject(newfont) = 0 \\plain\\lang1032\\f3\\fs17\\cf2 Then\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ' could not remove font from GDI heap\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 If\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par }\r\n",
  319.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 Make a new project. Add a module. To the form add a command button and a picture box.\r\n\\par \r\n\\par \r\n\\par }\r\n",
  320.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17\\cf1 'Add this code to the command button:\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf0 Command\\plain\\f3\\fs17 1_Click()\r\n\\par \\plain\\f3\\fs17\\cf2 Call\\plain\\f3\\fs17  dotext(Picture1,Verdana,\"V\\plain\\lang1033\\f4\\fs17 isual \\plain\\f3\\fs17 B\\plain\\lang1033\\f4\\fs17 asic\\plain\\f3\\fs17 \",\"240\")\r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17 \r\n\\par \r\n\\par }\r\n",
  321.             "ParentID": 43
  322.         },
  323.         {
  324.             "ID": 45,
  325.             "Description": "Misc Classes-Modules",
  326.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  327.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  328.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17 \r\n\\par }\r\n",
  329.             "ParentID": 0
  330.         },
  331.         {
  332.             "ID": 46,
  333.             "Description": "Modules",
  334.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17 \r\n\\par }\r\n",
  335.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\f4\\fs17 Misc. Modules\r\n\\par \\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  336.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  337.             "ParentID": 45
  338.         },
  339.         {
  340.             "ID": 47,
  341.             "Description": "Classes",
  342.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  343.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\f4\\fs17 Misc Classes\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  344.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}{\\f5\\fswiss MS Sans Serif;}{\\f6\\fswiss\\fprq2 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17 \r\n\\par }\r\n",
  345.             "ParentID": 45
  346.         },
  347.         {
  348.             "ID": 49,
  349.             "Description": "clsCPU",
  350.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17\\cf1 Option\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Explicit\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Declare\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Sub\\plain\\f3\\fs17  GetSystemInfo \\plain\\f3\\fs17\\cf1 Lib\\plain\\f3\\fs17  \"kernel32\" (lpSystemInfo \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  TSYSTEM_INFO)\r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Type\\plain\\f3\\fs17  TSYSTEM_INFO\r\n\\par     dwOEMID                     \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17 \r\n\\par     dwPageSize                  \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17 \r\n\\par     lpMinimumApplicationAddress \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17 \r\n\\par     lpMaximumApplicationAddress \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17 \r\n\\par     dwActiveProcessormask       \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17 \r\n\\par     dwNumberofProcessors        \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17 \r\n\\par     dwProcessorType             \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17 \r\n\\par     dwAllocationGranularity     \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17 \r\n\\par     wProcessorLevel             \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Integer\\plain\\f3\\fs17 \r\n\\par     wProcessorRevision          \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Integer\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Type\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 Enum\\plain\\f3\\fs17  EProcessor\r\n\\par     \\plain\\f3\\fs17\\cf1 Is\\plain\\f3\\fs17 386 = 386\r\n\\par     \\plain\\f3\\fs17\\cf1 Is\\plain\\f3\\fs17 486 = 486\r\n\\par     isPentium = 586\r\n\\par     isMIPSR4000 = 4000\r\n\\par     isAlpha21064 = 21064\r\n\\par \\plain\\f3\\fs17\\cf1 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Enum\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 'local variable(s) to hold property value(s)\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 Private\\plain\\f3\\fs17  mvarNumberOfProcessors        \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Byte\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 'local copy\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 Private\\plain\\f3\\fs17  mvarBrandOfCPU                \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 String\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 'local copy\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 Private\\plain\\f3\\fs17  mvarOEMID                     \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 'local copy\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 Private\\plain\\f3\\fs17  mvarPageSize                  \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 'local copy\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 Private\\plain\\f3\\fs17  mvarMinimumApplicationAddress \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 'local copy\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 Private\\plain\\f3\\fs17  mvarMaximumApplicationAddress \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 'local copy\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 Private\\plain\\f3\\fs17  mvarAllocationGranularity     \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 'local copy\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 Private\\plain\\f3\\fs17  mvarProcessorLevel            \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Integer\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 'local copy\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 Private\\plain\\f3\\fs17  mvarProcessorRevision         \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Integer\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 'local copy\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Property\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Get\\plain\\f3\\fs17  ProcessorRevision() \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Integer\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 'used when retrieving value of a property, on the right side of an assignment.\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 'Syntax: Debug.Print X.ProcessorRevision\\plain\\f3\\fs17 \r\n\\par     ProcessorRevision = mvarProcessorRevision\r\n\\par \\plain\\f3\\fs17\\cf1 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Property\\plain\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Property\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Get\\plain\\f3\\fs17  ProcessorLevel() \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Integer\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 'used when retrieving value of a property, on the right side of an assignment.\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 'Syntax: Debug.Print X.ProcessorLevel\\plain\\f3\\fs17 \r\n\\par     ProcessorLevel = mvarProcessorLevel\r\n\\par \\plain\\f3\\fs17\\cf1 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Property\\plain\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Property\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Get\\plain\\f3\\fs17  AllocationGranularity() \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 'used when retrieving value of a property, on the right side of an assignment.\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 'Syntax: Debug.Print X.AllocationGranularity\\plain\\f3\\fs17 \r\n\\par     AllocationGranularity = mvarAllocationGranularity\r\n\\par \\plain\\f3\\fs17\\cf1 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Property\\plain\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Property\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Get\\plain\\f3\\fs17  MaximumApplicationAddress() \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 'used when retrieving value of a property, on the right side of an assignment.\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 'Syntax: Debug.Print X.MaximumApplicationAddress\\plain\\f3\\fs17 \r\n\\par     MaximumApplicationAddress = mvarMaximumApplicationAddress\r\n\\par \\plain\\f3\\fs17\\cf1 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Property\\plain\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Property\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Get\\plain\\f3\\fs17  MinimumApplicationAddress() \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 'used when retrieving value of a property, on the right side of an assignment.\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 'Syntax: Debug.Print X.MinimumApplicationAddress\\plain\\f3\\fs17 \r\n\\par     MinimumApplicationAddress = mvarMinimumApplicationAddress\r\n\\par \\plain\\f3\\fs17\\cf1 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Property\\plain\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Property\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Get\\plain\\f3\\fs17  PageSize() \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 'used when retrieving value of a property, on the right side of an assignment.\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 'Syntax: Debug.Print X.PageSize\\plain\\f3\\fs17 \r\n\\par     PageSize = mvarPageSize\r\n\\par \\plain\\f3\\fs17\\cf1 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Property\\plain\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Property\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Get\\plain\\f3\\fs17  OEMID() \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 'used when retrieving value of a property, on the right side of an assignment.\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 'Syntax: Debug.Print X.OEMID\\plain\\f3\\fs17 \r\n\\par     OEMID = mvarOEMID\r\n\\par \\plain\\f3\\fs17\\cf1 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Property\\plain\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Property\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Get\\plain\\f3\\fs17  BrandOfCPU() \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 String\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 'used when retrieving value of a property, on the right side of an assignment.\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 'Syntax: Debug.Print X.BrandOfCPU\\plain\\f3\\fs17 \r\n\\par     BrandOfCPU = mvarBrandOfCPU\r\n\\par \\plain\\f3\\fs17\\cf1 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Property\\plain\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Property\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Get\\plain\\f3\\fs17  NumberOfProcessors() \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Byte\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 'used when retrieving value of a property, on the right side of an assignment.\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 'Syntax: Debug.Print X.NumberOfProcessors\\plain\\f3\\fs17 \r\n\\par     NumberOfProcessors = mvarNumberOfProcessors\r\n\\par \\plain\\f3\\fs17\\cf1 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Property\\plain\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Sub\\plain\\f3\\fs17  GatherInformation()\r\n\\par     \\plain\\f3\\fs17\\cf1 Dim\\plain\\f3\\fs17  mySys  \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  TSYSTEM_INFO\r\n\\par     GetSystemInfo mySys\r\n\\par         \r\n\\par     mvarNumberOfProcessors = \\plain\\f3\\fs17\\cf1 CStr\\plain\\f3\\fs17 (mySys.dwNumberofProcessors)\r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf1 Select\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Case\\plain\\f3\\fs17  mySys.dwProcessorType\r\n\\par         \\plain\\f3\\fs17\\cf1 Case\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Is\\plain\\f3\\fs17  = \\plain\\f3\\fs17\\cf1 Is\\plain\\f3\\fs17 386\r\n\\par             mvarBrandOfCPU = \"Intel 386\"\r\n\\par             \r\n\\par         \\plain\\f3\\fs17\\cf1 Case\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Is\\plain\\f3\\fs17  = \\plain\\f3\\fs17\\cf1 Is\\plain\\f3\\fs17 486\r\n\\par             mvarBrandOfCPU = \"Intel 486\"\r\n\\par         \r\n\\par         \\plain\\f3\\fs17\\cf1 Case\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Is\\plain\\f3\\fs17  = isPentium\r\n\\par             mvarBrandOfCPU = \"Intel Pentium\"\r\n\\par         \r\n\\par         \\plain\\f3\\fs17\\cf1 Case\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Is\\plain\\f3\\fs17  = isMIPSR4000\r\n\\par             mvarBrandOfCPU = \"MIPS R4000\"\r\n\\par             \r\n\\par         \\plain\\f3\\fs17\\cf1 Case\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Is\\plain\\f3\\fs17  = isAlpha21064\r\n\\par             mvarBrandOfCPU = \"Alpha 21064\"\r\n\\par     \\plain\\f3\\fs17\\cf1 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Select\\plain\\f3\\fs17 \r\n\\par \r\n\\par     mvarOEMID = mySys.dwOEMID\r\n\\par     mvarPageSize = mySys.dwPageSize\r\n\\par     mvarMinimumApplicationAddress = mySys.lpMinimumApplicationAddress\r\n\\par     mvarMaximumApplicationAddress = mySys.lpMaximumApplicationAddress\r\n\\par     mvarAllocationGranularity = mySys.dwAllocationGranularity\r\n\\par     mvarProcessorLevel = mySys.wProcessorLevel\r\n\\par     mvarProcessorRevision = mySys.wProcessorRevision\r\n\\par \\plain\\f3\\fs17\\cf1 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Sub\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Sub\\plain\\f3\\fs17  Class_Initialize()\r\n\\par     GatherInformation\r\n\\par \\plain\\f3\\fs17\\cf1 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Sub\\plain\\f3\\fs17 \r\n\\par \r\n\\par }\r\n",
  351.             "Notes": "Insert Some Notes Here",
  352.             "Example": " Insert Example Code",
  353.             "ParentID": 47
  354.         },
  355.         {
  356.             "ID": 52,
  357.             "Description": "Math",
  358.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17\\cf2 Option\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Explicit\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Base\\plain\\f3\\fs17 2\\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 (s \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 , \\plain\\f3\\fs17\\cf2 ByVal\\plain\\f3\\fs17  nB \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Integer\\plain\\f3\\fs17 ) \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par    \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  s2 \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 \r\n\\par    \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  i \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par    \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  j \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par    \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  X \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par    \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  n \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Boolean\\plain\\f3\\fs17 \r\n\\par    \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  s3 \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 \r\n\\par    \r\n\\par    \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf0 Len\\plain\\f3\\fs17 (s) < 1 \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par       \\plain\\f3\\fs17\\cf2 Base\\plain\\f3\\fs17 2\\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17  = 0\r\n\\par       \\plain\\f3\\fs17\\cf2 Exit\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par    \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par    \r\n\\par    s2 = \\plain\\f3\\fs17\\cf0 UCase\\plain\\f3\\fs17 (s)\r\n\\par    \r\n\\par    \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf0 Left\\plain\\f3\\fs17 $(s2, 1) = \"-\" \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par       n = \\plain\\f3\\fs17\\cf2 True\\plain\\f3\\fs17 \r\n\\par       s2 = \\plain\\f3\\fs17\\cf0 Right\\plain\\f3\\fs17 $(s2, \\plain\\f3\\fs17\\cf0 Len\\plain\\f3\\fs17 (s2) - 1)\r\n\\par    \\plain\\f3\\fs17\\cf2 Else\\plain\\f3\\fs17 \r\n\\par       n = \\plain\\f3\\fs17\\cf2 False\\plain\\f3\\fs17 \r\n\\par    \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par    \r\n\\par    j = 1\r\n\\par    X = 0\r\n\\par    \r\n\\par    \\plain\\f3\\fs17\\cf2 For\\plain\\f3\\fs17  i = \\plain\\f3\\fs17\\cf0 Len\\plain\\f3\\fs17 (s2) \\plain\\f3\\fs17\\cf2 To\\plain\\f3\\fs17  1 Step -1\r\n\\par       s3 = \\plain\\f3\\fs17\\cf0 Mid\\plain\\f3\\fs17 $(s2, i, 1)\r\n\\par       \\plain\\f3\\fs17\\cf2 Select\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Case\\plain\\f3\\fs17  s3\r\n\\par       \\plain\\f3\\fs17\\cf2 Case\\plain\\f3\\fs17  \"0\" \\plain\\f3\\fs17\\cf2 To\\plain\\f3\\fs17  \"9\":\r\n\\par          X = X + j * (\\plain\\f3\\fs17\\cf0 Asc\\plain\\f3\\fs17 (s3) - 48)\r\n\\par       \\plain\\f3\\fs17\\cf2 Case\\plain\\f3\\fs17  \"A\" \\plain\\f3\\fs17\\cf2 To\\plain\\f3\\fs17  \"Z\":\r\n\\par          X = X + j * (\\plain\\f3\\fs17\\cf0 Asc\\plain\\f3\\fs17 (s3) - 55)\r\n\\par       \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Select\\plain\\f3\\fs17 \r\n\\par       \r\n\\par       j = j * nB\r\n\\par    \\plain\\f3\\fs17\\cf2 Next\\plain\\f3\\fs17  i\r\n\\par    \r\n\\par    \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  n \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par       X = -X\r\n\\par    \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par    \r\n\\par    \\plain\\f3\\fs17\\cf2 Base\\plain\\f3\\fs17 2\\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17  = X\r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '  Converts the number n to any base between 2 and 36\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 2\\plain\\f3\\fs17\\cf2 Base\\plain\\f3\\fs17 (\\plain\\f3\\fs17\\cf2 ByVal\\plain\\f3\\fs17  n \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 , \\plain\\f3\\fs17\\cf2 ByVal\\plain\\f3\\fs17  nB \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Integer\\plain\\f3\\fs17 ) \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 \r\n\\par   \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  s \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 \r\n\\par   \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  nD \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Integer\\plain\\f3\\fs17 \r\n\\par   \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  Negative \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Boolean\\plain\\f3\\fs17 \r\n\\par \r\n\\par   Negative = n < 0\r\n\\par   n = \\plain\\f3\\fs17\\cf0 Abs\\plain\\f3\\fs17 (n)\r\n\\par   \r\n\\par   \\plain\\f3\\fs17\\cf2 Do\\plain\\f3\\fs17 \r\n\\par     nD = n Mod nB\r\n\\par     \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  nD > 9 \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par        nD = nD + 7\r\n\\par     \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     s = \\plain\\f3\\fs17\\cf0 Chr\\plain\\f3\\fs17 $(48 + nD) & s\r\n\\par     n = n \\\\ nB\r\n\\par   \\plain\\f3\\fs17\\cf2 Loop\\plain\\f3\\fs17  Until n = 0\r\n\\par   \r\n\\par   \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  Negative \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par     s = \"-\" & s\r\n\\par   \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par   \r\n\\par   \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 2\\plain\\f3\\fs17\\cf2 Base\\plain\\f3\\fs17  = s\r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 ' Returns true if the number is a prime number.\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 ' false if it is not.\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 ' This should work reasonably well for small\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 ' numbers (32-bits or less).  For larger numbers\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 ' the Rabin-Miller test should be used.\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  IsPrime(\\plain\\f3\\fs17\\cf2 ByVal\\plain\\f3\\fs17  n \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 ) \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Boolean\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  i \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par \r\n\\par     IsPrime = \\plain\\f3\\fs17\\cf2 False\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  n <> 2 \\plain\\f3\\fs17\\cf2 And\\plain\\f3\\fs17  (n \\plain\\f3\\fs17\\cf2 And\\plain\\f3\\fs17  1) = 0 \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Exit\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 'test if div 2\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  n <> 3 \\plain\\f3\\fs17\\cf2 And\\plain\\f3\\fs17  n Mod 3 = 0 \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Exit\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 'test if div 3\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 For\\plain\\f3\\fs17  i = 6 \\plain\\f3\\fs17\\cf2 To\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf0 Sqr\\plain\\f3\\fs17 (n) Step 6\r\n\\par         \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  n Mod (i - 1) = 0 \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Exit\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par         \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  n Mod (i + 1) = 0 \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Exit\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 Next\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     IsPrime = \\plain\\f3\\fs17\\cf2 True\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par \r\n\\par }\r\n",
  359.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17 Converts a number in any base from 2 to 36 to a long.\r\n\\par \r\n\\par Note, this doesn't verify if the string is a valid number in the given base.\r\n\\par \r\n\\par \r\n\\par }\r\n",
  360.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  361.             "ParentID": 46
  362.         },
  363.         {
  364.             "ID": 55,
  365.             "Description": "Random",
  366.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Function\\plain\\lang1032\\f3\\fs17  iRandomDouble(viLowerBound \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Integer\\plain\\lang1032\\f3\\fs17 , viUpperBound \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Integer\\plain\\lang1032\\f3\\fs17 )\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'generate a random Double between viLowerBound and viUpperBound\\plain\\lang1032\\f3\\fs17 \r\n\\par iRandomDouble = \\plain\\lang1032\\f3\\fs17\\cf0 Rnd\\plain\\lang1032\\f3\\fs17  * (viUpperBound - viLowerBound) + viLowerBound\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Function\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Function\\plain\\lang1032\\f3\\fs17  iRandomInteger(viLowerBound \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Integer\\plain\\lang1032\\f3\\fs17 , viUpperBound \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Integer\\plain\\lang1032\\f3\\fs17 )\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'generate a random Integer between viLowerBound and viUpperBound\\plain\\lang1032\\f3\\fs17 \r\n\\par iRandomInteger = \\plain\\lang1032\\f3\\fs17\\cf0 Int\\plain\\lang1032\\f3\\fs17 (\\plain\\lang1032\\f3\\fs17\\cf0 Rnd\\plain\\lang1032\\f3\\fs17  * (viUpperBound - viLowerBound + 1)) + viLowerBound\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Function\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par }\r\n",
  367.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1032\\pard\\plain\\lang1033\\f4\\fs17 Code by:\\plain\\f3\\fs17 \r\n\\par \r\n\\par (c) Richard Yarnell\r\n\\par ryarnell@andrew.cmu.edu\r\n\\par }\r\n",
  368.             "Example": " Insert Example Code",
  369.             "ParentID": 46
  370.         },
  371.         {
  372.             "ID": 56,
  373.             "Description": "Common Dialog",
  374.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  375.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  376.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17 \r\n\\par }\r\n",
  377.             "ParentID": 0
  378.         },
  379.         {
  380.             "ID": 57,
  381.             "Description": "Map Network drive",
  382.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17\\cf1 Private\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Declare\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Function\\plain\\lang1032\\f3\\fs17  WNetConnectionDialog \\plain\\lang1032\\f3\\fs17\\cf1 Lib\\plain\\lang1032\\f3\\fs17  \"mpr.dll\" _\r\n\\par (\\plain\\lang1032\\f3\\fs17\\cf1 ByVal\\plain\\lang1032\\f3\\fs17  hwnd \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Long\\plain\\lang1032\\f3\\fs17 , \\plain\\lang1032\\f3\\fs17\\cf1 ByVal\\plain\\lang1032\\f3\\fs17  dwType \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Long\\plain\\lang1032\\f3\\fs17 ) \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par x% = WNetConnectionDialog(\\plain\\lang1032\\f3\\fs17\\cf0 Me\\plain\\lang1032\\f3\\fs17 .hwnd, 1)\r\n\\par }\r\n",
  383.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 Calls the \"Map Network Drive Dialog\" without need for an OCX\r\n\\par }\r\n",
  384.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17 \r\n\\par }\r\n",
  385.             "ParentID": 56
  386.         },
  387.         {
  388.             "ID": 58,
  389.             "Description": "Multimedia",
  390.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  391.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  392.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17 \r\n\\par }\r\n",
  393.             "ParentID": 0
  394.         },
  395.         {
  396.             "ID": 59,
  397.             "Description": "Playing *.wav",
  398.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17\\cf1 'Add this to a module\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Declare\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Function\\plain\\lang1032\\f3\\fs17  sndPlaySound \\plain\\lang1032\\f3\\fs17\\cf2 Lib\\plain\\lang1032\\f3\\fs17  \"winmm.dll\" \\plain\\lang1032\\f3\\fs17\\cf2 Alias\\plain\\lang1032\\f3\\fs17  \"sndPlaySoundA\" _\r\n\\par (\\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  lpszSoundName \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 String\\plain\\lang1032\\f3\\fs17 , \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  uFlags \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 ) \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Const\\plain\\lang1032\\f3\\fs17  SND_SYNC = &H0\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Const\\plain\\lang1032\\f3\\fs17  SND_ASYNC = &H1\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Const\\plain\\lang1032\\f3\\fs17  SND_NODEFAULT = &H2\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Const\\plain\\lang1032\\f3\\fs17  SND_LOOP = &H8\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Const\\plain\\lang1032\\f3\\fs17  SND_NOSTOP = &H10\r\n\\par \r\n\\par }\r\n",
  399.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 Plays a .WAV file\r\n\\par \r\n\\par \\plain\\f4\\fs17 Add a module and a button\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  400.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17\\cf1 'Insert the following code under a command button, in a menu, etc..\\plain\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf0 Command\\plain\\f3\\fs17 1_Click()\r\n\\par SoundFile$ = \"c:\\\\windows\\\\chimes.wav\"\r\n\\par wFlags% = SND_ASYNC \\plain\\f3\\fs17\\cf2 Or\\plain\\f3\\fs17  SND_NODEFAULT\r\n\\par x% = sndPlaySound(SoundFile$, wFlags%)\r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17 \r\n\\par \r\n\\par }\r\n",
  401.             "ParentID": 58
  402.         },
  403.         {
  404.             "ID": 60,
  405.             "Description": "Bold Menu",
  406.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17\\cf1 'Make the following declarations To a module:\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Declare\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Function\\plain\\lang1032\\f3\\fs17  GetMenu _\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Lib\\plain\\lang1032\\f3\\fs17  \"user32\" ( _\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  hwnd \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 ) \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Declare\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Function\\plain\\lang1032\\f3\\fs17  GetSubMenu _\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Lib\\plain\\lang1032\\f3\\fs17  \"user32\" ( _\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  hMenu \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 , _\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  nPos \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 ) \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Declare\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Function\\plain\\lang1032\\f3\\fs17  SetMenuDefaultItem _\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Lib\\plain\\lang1032\\f3\\fs17  \"user32\" ( _\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  hMenu \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 , _\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  uItem \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 , _\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  fByPos \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 ) \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  Long\r\n\\par }\r\n",
  407.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 The SetBold procedure takes 3 arguments. The first is the form that holds the menu you would like to change. The second is the zero based index of the menu and the third is the zero based index of the menu item you would like to set to bold.\r\n\\par \r\n\\par Let's say you have the following menu:\r\n\\par \r\n\\par mnuFile\r\n\\par ---mnuFileNew\r\n\\par ---mnuFileOpen\r\n\\par ---mnuFileExit\r\n\\par mnuEdit\r\n\\par ---mnuEditCut\r\n\\par ---mnuEditCopy\r\n\\par ---mnuEditPaste\r\n\\par \r\n\\par And you would like to set the mnuEditPaste item into bold. Then you would call the function in the following manner:\r\n\\par Call SetBold(Me, 1, 2)\r\n\\par Arguments:\r\n\\par ----------\r\n\\par Me = The form\r\n\\par 1 = Menu index for mnuEdit\r\n\\par 2 = Item index for mnuEditPaste\\plain\\f4\\fs17 \r\n\\par \r\n\\par -----\r\n\\par by Joacim Andersson\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  408.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\f4\\fs17\\cf1 'Add this:\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17  SetBold(frm \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  Form, iMenuIndex \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 , iItemIndex \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 )\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Dim\\plain\\lang1032\\f3\\fs17  hMnu \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 , hSubMnu \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par hMnu = GetMenu(frm.hwnd)\r\n\\par hSubMnu = GetSubMenu(hMnu, iMenuIndex)\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Call\\plain\\lang1032\\f3\\fs17  SetMenuDefaultItem(hSubMnu, iItemIndex, 1&)\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  Sub\r\n\\par }\r\n",
  409.             "ParentID": 30
  410.         },
  411.         {
  412.             "ID": 61,
  413.             "Description": "Macros",
  414.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1033\\pard\\plain\\f4\\fs17\\cf2 'Binary equivalents for hex values:\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 '\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 'FF0000     -          11111111 00000000 00000000\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 '10000       -                 1 00000000 00000000\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 'FF00         -                    11111111 00000000\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 '100           -                          1 00000000\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 'FF             -                            11111111\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 '8000         -                   10000000 00000000\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 '80             -                            10000000\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 '80000000 - 10000000 00000000 00000000 00000000\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 'FFFF         -                   11111111 11111111\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 '7FFF         -                    1111111 11111111\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf2 '7F             -                               1111111\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 Public\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Function\\plain\\f4\\fs17  GetBValue(RGBValue \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Long\\plain\\f4\\fs17 ) \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Byte\\plain\\f4\\fs17 \r\n\\par \r\n\\par GetBValue = (RGBValue \\plain\\f4\\fs17\\cf1 And\\plain\\f4\\fs17  &HFF0000) / &H10000\r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Function\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 Public\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Function\\plain\\f4\\fs17  GetGValue(RGBValue \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Long\\plain\\f4\\fs17 ) \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Byte\\plain\\f4\\fs17 \r\n\\par \r\n\\par GetGValue = (RGBValue \\plain\\f4\\fs17\\cf1 And\\plain\\f4\\fs17  &HFF00) / &H100\r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Function\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 Public\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Function\\plain\\f4\\fs17  GetRValue(RGBValue \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Long\\plain\\f4\\fs17 ) \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Byte\\plain\\f4\\fs17 \r\n\\par \r\n\\par GetRValue = RGBValue \\plain\\f4\\fs17\\cf1 And\\plain\\f4\\fs17  &HFF\r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Function\\plain\\f4\\fs17 \r\n\\par \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 Function\\plain\\f4\\fs17  HiByte(\\plain\\f4\\fs17\\cf1 ByVal\\plain\\f4\\fs17  Word \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Integer\\plain\\f4\\fs17 ) \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Byte\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 If\\plain\\f4\\fs17  Word \\plain\\f4\\fs17\\cf1 And\\plain\\f4\\fs17  &H8000 \\plain\\f4\\fs17\\cf1 Then\\plain\\f4\\fs17 \r\n\\par  HiByte = &H80 \\plain\\f4\\fs17\\cf1 Or\\plain\\f4\\fs17  ((Word \\plain\\f4\\fs17\\cf1 And\\plain\\f4\\fs17  &H7FFF) \\\\ &HFF)\r\n\\par \\plain\\f4\\fs17\\cf1 Else\\plain\\f4\\fs17 \r\n\\par  HiByte = w \\\\ &H100\r\n\\par \\plain\\f4\\fs17\\cf1 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 If\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Function\\plain\\f4\\fs17 \r\n\\par \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 Function\\plain\\f4\\fs17  HiWord(dWord \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Long\\plain\\f4\\fs17 ) \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Integer\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 If\\plain\\f4\\fs17  dWord \\plain\\f4\\fs17\\cf1 And\\plain\\f4\\fs17  &H80000000 \\plain\\f4\\fs17\\cf1 Then\\plain\\f4\\fs17 \r\n\\par  HiWord = (dWord \\\\ &HFFFF) - 1\r\n\\par \\plain\\f4\\fs17\\cf1 Else\\plain\\f4\\fs17 \r\n\\par  HiWord = dWord \\\\ &HFFFF\r\n\\par \\plain\\f4\\fs17\\cf1 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 If\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Function\\plain\\f4\\fs17 \r\n\\par \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 Function\\plain\\f4\\fs17  LoByte(Word \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Integer\\plain\\f4\\fs17 ) \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Byte\\plain\\f4\\fs17 \r\n\\par \r\n\\par LoByte = Word \\plain\\f4\\fs17\\cf1 And\\plain\\f4\\fs17  &HFF\r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Function\\plain\\f4\\fs17 \r\n\\par \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 Function\\plain\\f4\\fs17  LoWord(dWord \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Long\\plain\\f4\\fs17 ) \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Integer\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 If\\plain\\f4\\fs17  dWord \\plain\\f4\\fs17\\cf1 And\\plain\\f4\\fs17  &H8000& \\plain\\f4\\fs17\\cf1 Then\\plain\\f4\\fs17 \r\n\\par  LoWord = &H8000 \\plain\\f4\\fs17\\cf1 Or\\plain\\f4\\fs17  (dWord \\plain\\f4\\fs17\\cf1 And\\plain\\f4\\fs17  &H7FFF&)\r\n\\par \\plain\\f4\\fs17\\cf1 Else\\plain\\f4\\fs17 \r\n\\par  LoWord = dWord \\plain\\f4\\fs17\\cf1 And\\plain\\f4\\fs17  &HFFFF&\r\n\\par \\plain\\f4\\fs17\\cf1 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 If\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Function\\plain\\f4\\fs17 \r\n\\par \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 Function\\plain\\f4\\fs17  ShiftWordL(\\plain\\f4\\fs17\\cf1 ByVal\\plain\\f4\\fs17  Word \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Integer\\plain\\f4\\fs17 , \\plain\\f4\\fs17\\cf1 ByVal\\plain\\f4\\fs17  n \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Integer\\plain\\f4\\fs17 ) \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Integer\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 Dim\\plain\\f4\\fs17  dWord \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Long\\plain\\f4\\fs17 \r\n\\par dWord = Word * (2 ^ n)\r\n\\par \\plain\\f4\\fs17\\cf1 If\\plain\\f4\\fs17  dWord \\plain\\f4\\fs17\\cf1 And\\plain\\f4\\fs17  &H8000& \\plain\\f4\\fs17\\cf1 Then\\plain\\f4\\fs17 \r\n\\par  ShiftWordL = \\plain\\f4\\fs17\\cf1 CInt\\plain\\f4\\fs17 (dWord \\plain\\f4\\fs17\\cf1 And\\plain\\f4\\fs17  &H7FFF&) \\plain\\f4\\fs17\\cf1 Or\\plain\\f4\\fs17  &H8000\r\n\\par \\plain\\f4\\fs17\\cf1 Else\\plain\\f4\\fs17 \r\n\\par  ShiftWordL = dWord \\plain\\f4\\fs17\\cf1 And\\plain\\f4\\fs17  &HFFFF&\r\n\\par \\plain\\f4\\fs17\\cf1 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 If\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Function\\plain\\f4\\fs17 \r\n\\par \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 Function\\plain\\f4\\fs17  ShiftWordR(\\plain\\f4\\fs17\\cf1 ByVal\\plain\\f4\\fs17  Word \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Integer\\plain\\f4\\fs17 , \\plain\\f4\\fs17\\cf1 ByVal\\plain\\f4\\fs17  n \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Integer\\plain\\f4\\fs17 ) \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Integer\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 Dim\\plain\\f4\\fs17  dWord \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Long\\plain\\f4\\fs17 \r\n\\par \\plain\\f4\\fs17\\cf1 If\\plain\\f4\\fs17  n = 0 \\plain\\f4\\fs17\\cf1 Then\\plain\\f4\\fs17 \r\n\\par  ShiftWordR = Word\r\n\\par \\plain\\f4\\fs17\\cf1 Else\\plain\\f4\\fs17 \r\n\\par  dWord = Word \\plain\\f4\\fs17\\cf1 And\\plain\\f4\\fs17  &HFFFF&\r\n\\par  dWord = dWord \\\\ (2 ^ n)\r\n\\par  ShiftWordR = dWord \\plain\\f4\\fs17\\cf1 And\\plain\\f4\\fs17  &HFFFF&\r\n\\par \\plain\\f4\\fs17\\cf1 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 If\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Function\\plain\\f4\\fs17 \r\n\\par \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 Function\\plain\\f4\\fs17  MakeWord(\\plain\\f4\\fs17\\cf1 ByVal\\plain\\f4\\fs17  HiByte \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Byte\\plain\\f4\\fs17 , \\plain\\f4\\fs17\\cf1 ByVal\\plain\\f4\\fs17  LoByte \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Byte\\plain\\f4\\fs17 ) \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Integer\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 If\\plain\\f4\\fs17  HiByte \\plain\\f4\\fs17\\cf1 And\\plain\\f4\\fs17  &H80 \\plain\\f4\\fs17\\cf1 Then\\plain\\f4\\fs17 \r\n\\par  MakeWord = (((HiByte \\plain\\f4\\fs17\\cf1 And\\plain\\f4\\fs17  &H7F) * &H100) + LoByte) \\plain\\f4\\fs17\\cf1 Or\\plain\\f4\\fs17  &H8000\r\n\\par \\plain\\f4\\fs17\\cf1 Else\\plain\\f4\\fs17 \r\n\\par  MakeWord = (HiByte * &H100) + LoByte\r\n\\par \\plain\\f4\\fs17\\cf1 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 If\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Function\\plain\\f4\\fs17 \r\n\\par \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 Function\\plain\\f4\\fs17  MakeDWord(HiWord \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Integer\\plain\\f4\\fs17 , LoWord \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Integer\\plain\\f4\\fs17 ) \\plain\\f4\\fs17\\cf1 As\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Long\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 If\\plain\\f4\\fs17  wHi \\plain\\f4\\fs17\\cf1 And\\plain\\f4\\fs17  &H8000& \\plain\\f4\\fs17\\cf1 Then\\plain\\f4\\fs17 \r\n\\par  MakeDWord = (((wHi \\plain\\f4\\fs17\\cf1 And\\plain\\f4\\fs17  &H7FFF&) * &H10000) \\plain\\f4\\fs17\\cf1 Or\\plain\\f4\\fs17  (wLo \\plain\\f4\\fs17\\cf1 And\\plain\\f4\\fs17  &HFFFF&)) \\plain\\f4\\fs17\\cf1 Or\\plain\\f4\\fs17  &H80000000\r\n\\par \\plain\\f4\\fs17\\cf1 Else\\plain\\f4\\fs17 \r\n\\par  MakeDWord = (wHi * &HFFFF) + wLo\r\n\\par \\plain\\f4\\fs17\\cf1 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 If\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 End\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf1 Function\\plain\\f4\\fs17 \r\n\\par \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  415.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  416.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  417.             "ParentID": 30
  418.         },
  419.         {
  420.             "ID": 65,
  421.             "Description": "Date / Time",
  422.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  423.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  424.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  425.             "ParentID": 0
  426.         },
  427.         {
  428.             "ID": 66,
  429.             "Description": "Locale Aware Dates",
  430.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  431.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 Determine the characters used to separate date components, thousands, and the decimal and integer portion of numbers for the locale in effect.  This function returns a string that you can use in the Format$() command to convert any valid date to display properly according to the regional settings in effect.\r\n\\par \r\n\\par -----\r\n\\par The return value of this function can be used in the Format$() command to convert a date to the regional settings in effect. For example:\r\n\\par \r\n\\par sFormatString = fGetDateFormatString(sSeparator)\r\n\\par sNewDate = Format$(sOldDate, sFormatString)\r\n\\par \r\n\\par If sOldDate is \"12/31/1998\" and the regional settings are German, sNewDate will be \"31.12.1998\"\r\n\\par \r\n\\par \r\n\\par \\plain\\f4\\fs17 http://www.TheScarms.com/\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  432.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1033\\pard\\plain\\f4\\fs17\\cf2 '\\plain\\lang1032\\f3\\fs17\\cf2 Add this code to the Load event:\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Private\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Sub\\plain\\lang1032\\f3\\fs17  Form_Load()\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Dim\\plain\\lang1032\\f3\\fs17  sDateSep \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 String\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Dim\\plain\\lang1032\\f3\\fs17  sDatefmt \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 String\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par lblLocale(0) = \\plain\\lang1032\\f3\\fs17\\cf0 Mid\\plain\\lang1032\\f3\\fs17 $(\\plain\\lang1032\\f3\\fs17\\cf0 Format\\plain\\lang1032\\f3\\fs17 (\"1234\", \"Standard\"), 6, 1)\r\n\\par lblLocale(1) = \\plain\\lang1032\\f3\\fs17\\cf0 Asc\\plain\\lang1032\\f3\\fs17 (lblLocale(0))\r\n\\par lblLocale(2) = \\plain\\lang1032\\f3\\fs17\\cf0 Mid\\plain\\lang1032\\f3\\fs17 $(\\plain\\lang1032\\f3\\fs17\\cf0 Format\\plain\\lang1032\\f3\\fs17 (\"1234\", \"Standard\"), 2, 1)\r\n\\par lblLocale(3) = \\plain\\lang1032\\f3\\fs17\\cf0 Asc\\plain\\lang1032\\f3\\fs17 (lblLocale(2))\r\n\\par sDatefmt = fGetDateFormatString(sDateSep)\r\n\\par lblLocale(4) = sDateSep\r\n\\par lblLocale(5) = \\plain\\lang1032\\f3\\fs17\\cf0 Asc\\plain\\lang1032\\f3\\fs17 (lblLocale(4))\r\n\\par lblLocale(6) = sDatefmt\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Sub\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 'Add this code to the General section of the form:\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Private\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Function\\plain\\lang1032\\f3\\fs17  fGetDateFormatString(cSeparator \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 String\\plain\\lang1032\\f3\\fs17 ) \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 String\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Dim\\plain\\lang1032\\f3\\fs17  sLocaleDate \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 String\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Dim\\plain\\lang1032\\f3\\fs17  sWorkDate \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 String\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Dim\\plain\\lang1032\\f3\\fs17  sFormat \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 String\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Dim\\plain\\lang1032\\f3\\fs17  sTemp \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 String\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Dim\\plain\\lang1032\\f3\\fs17  iLoc \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Integer\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Dim\\plain\\lang1032\\f3\\fs17  iLeft \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Integer\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Dim\\plain\\lang1032\\f3\\fs17  iRight \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Integer\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Dim\\plain\\lang1032\\f3\\fs17  iMid \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Integer\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Dim\\plain\\lang1032\\f3\\fs17  iDD \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Integer\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Dim\\plain\\lang1032\\f3\\fs17  iMM \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Integer\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Dim\\plain\\lang1032\\f3\\fs17  iYY \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Integer\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Dim\\plain\\lang1032\\f3\\fs17  iCC \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Integer\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Dim\\plain\\lang1032\\f3\\fs17  iYYYY \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Integer\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Dim\\plain\\lang1032\\f3\\fs17  sYYYY \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 String\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Const\\plain\\lang1032\\f3\\fs17  sKnownDate = \"08/25/58\"\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 '\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 ' Convert a known date to the regional format\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 '\\plain\\lang1032\\f3\\fs17 \r\n\\par sLocaleDate = \\plain\\lang1032\\f3\\fs17\\cf0 Format\\plain\\lang1032\\f3\\fs17 (sKnownDate, \"Short Date\")\r\n\\par sWorkDate = sLocaleDate\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 '\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 ' Determine the separator character\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 '\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 For\\plain\\lang1032\\f3\\fs17  iLoc = 1 \\plain\\lang1032\\f3\\fs17\\cf1 To\\plain\\lang1032\\f3\\fs17  5\r\n\\par     cSeparator = \\plain\\lang1032\\f3\\fs17\\cf0 Mid\\plain\\lang1032\\f3\\fs17 (sLocaleDate, iLoc, 1)\r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 If\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Not\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf0 IsNumeric\\plain\\lang1032\\f3\\fs17 (cSeparator) \\plain\\lang1032\\f3\\fs17\\cf1 Then\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Exit\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 For\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Next\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 '\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 ' Parse the date into its components\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 '\\plain\\lang1032\\f3\\fs17 \r\n\\par iLoc = \\plain\\lang1032\\f3\\fs17\\cf0 InStr\\plain\\lang1032\\f3\\fs17 (1, sWorkDate, cSeparator)\r\n\\par iLeft = \\plain\\lang1032\\f3\\fs17\\cf0 Val\\plain\\lang1032\\f3\\fs17 (\\plain\\lang1032\\f3\\fs17\\cf0 Left\\plain\\lang1032\\f3\\fs17 $(sLocaleDate, iLoc - 1))\r\n\\par sWorkDate = \\plain\\lang1032\\f3\\fs17\\cf0 Mid\\plain\\lang1032\\f3\\fs17 $(sWorkDate, iLoc + 1)\r\n\\par iLoc = \\plain\\lang1032\\f3\\fs17\\cf0 InStr\\plain\\lang1032\\f3\\fs17 (1, sWorkDate, cSeparator)\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 '\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 'Correct regional date format 4/98\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 '\\plain\\lang1032\\f3\\fs17 \r\n\\par sTemp = \\plain\\lang1032\\f3\\fs17\\cf0 Mid\\plain\\lang1032\\f3\\fs17 $(sWorkDate, 1, iLoc - 1)\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 If\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf0 IsNumeric\\plain\\lang1032\\f3\\fs17 (sTemp) \\plain\\lang1032\\f3\\fs17\\cf1 Then\\plain\\lang1032\\f3\\fs17 \r\n\\par     iMid = \\plain\\lang1032\\f3\\fs17\\cf0 Val\\plain\\lang1032\\f3\\fs17 (\\plain\\lang1032\\f3\\fs17\\cf0 Mid\\plain\\lang1032\\f3\\fs17 $(sWorkDate, 1, iLoc - 1))\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Else\\plain\\lang1032\\f3\\fs17 \r\n\\par     iMid = \\plain\\lang1032\\f3\\fs17\\cf0 Month\\plain\\lang1032\\f3\\fs17 (sLocaleDate)\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 If\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par sWorkDate = \\plain\\lang1032\\f3\\fs17\\cf0 Mid\\plain\\lang1032\\f3\\fs17 $(sWorkDate, iLoc + 1)\r\n\\par iRight = \\plain\\lang1032\\f3\\fs17\\cf0 Val\\plain\\lang1032\\f3\\fs17 (\\plain\\lang1032\\f3\\fs17\\cf0 Mid\\plain\\lang1032\\f3\\fs17 $(sWorkDate, 1))\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 '\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 ' Locale aware functions\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 '\\plain\\lang1032\\f3\\fs17 \r\n\\par iDD = \\plain\\lang1032\\f3\\fs17\\cf0 Day\\plain\\lang1032\\f3\\fs17 (sLocaleDate)\r\n\\par iMM = \\plain\\lang1032\\f3\\fs17\\cf0 Month\\plain\\lang1032\\f3\\fs17 (sLocaleDate)\r\n\\par iYYYY = \\plain\\lang1032\\f3\\fs17\\cf0 Year\\plain\\lang1032\\f3\\fs17 (sLocaleDate)\r\n\\par sYYYY = \\plain\\lang1032\\f3\\fs17\\cf1 CStr\\plain\\lang1032\\f3\\fs17 (iYYYY)\r\n\\par iCC = \\plain\\lang1032\\f3\\fs17\\cf0 Val\\plain\\lang1032\\f3\\fs17 (\\plain\\lang1032\\f3\\fs17\\cf0 Left\\plain\\lang1032\\f3\\fs17 $(sYYYY, 2))\r\n\\par iYY = \\plain\\lang1032\\f3\\fs17\\cf0 Val\\plain\\lang1032\\f3\\fs17 (\\plain\\lang1032\\f3\\fs17\\cf0 Right\\plain\\lang1032\\f3\\fs17 (sYYYY, 2))\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 '\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 ' Is the left component the day, month or year??\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 '\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Select\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Case\\plain\\lang1032\\f3\\fs17  iLeft\r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 Case\\plain\\lang1032\\f3\\fs17  iDD\r\n\\par         sFormat = \"dd/\"\r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 Case\\plain\\lang1032\\f3\\fs17  iMM\r\n\\par         sFormat = \"mm/\"\r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 Case\\plain\\lang1032\\f3\\fs17  iYY, iYYYY\r\n\\par         sFormat = \"yyyy/\"\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Select\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 '\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 ' How about the middle?\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 '\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Select\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Case\\plain\\lang1032\\f3\\fs17  iMid\r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 Case\\plain\\lang1032\\f3\\fs17  iDD\r\n\\par         sFormat = sFormat & \"dd/\"\r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 Case\\plain\\lang1032\\f3\\fs17  iMM\r\n\\par         sFormat = sFormat & \"mm/\"\r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 Case\\plain\\lang1032\\f3\\fs17  iYY, iYYYY\r\n\\par         sFormat = sFormat & \"yyyy/\"\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Select\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 '\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 ' And the right component is:\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 '\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Select\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Case\\plain\\lang1032\\f3\\fs17  iRight\r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 Case\\plain\\lang1032\\f3\\fs17  iDD\r\n\\par         sFormat = sFormat & \"dd\"\r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 Case\\plain\\lang1032\\f3\\fs17  iMM\r\n\\par         sFormat = sFormat & \"mm\"\r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 Case\\plain\\lang1032\\f3\\fs17  iYY, iYYYY\r\n\\par         sFormat = sFormat & \"yyyy\"\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Select\\plain\\lang1032\\f3\\fs17 \r\n\\par fGetDateFormatString = sFormat\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Function\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par \r\n\\par }\r\n",
  433.             "ParentID": 65
  434.         },
  435.         {
  436.             "ID": 68,
  437.             "Description": "OLE automation",
  438.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17 \r\n\\par }\r\n",
  439.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  440.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  441.             "ParentID": 0
  442.         },
  443.         {
  444.             "ID": 69,
  445.             "Description": "Excel Object Library",
  446.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  447.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 Often, you may need to import data from a Microsoft Excel worksheet into your Visual Basic application or export your data to an Excel worksheet.   Since the functionality of Excel is available through the Excel Object Library, the hardest part is determining which Excel properties to set and methods to call.  The Excel Object Library is very extensive.  To see for yourself, just reference it in your project and bring it up in the object browser. \r\n\\par \r\n\\par What I demonstrate here are a few very basic concepts.  I start with a simple spreadsheet, fill it with data, change the font, color and format of a few cells and create a simple formula to sum up the data.  Then I let you view the spreadsheet or print it out.\r\n\\par \r\n\\par There are many books devoted to using the Excel library and all do a better job than this sample.  All I am attempting to do is show that it is possible and actually very easy to do.  I wrote this program in response to all the questions I have received on how to export data to Excel.  Hopefully this will provide a little insight and act as a starting point.\r\n\\par \r\n\\par To view the worksheet I use the ShellExecute API to start Excel and have it display the worksheet.  \r\n\\par \r\n\\par \r\n\\par Since I used early binding you must set a reference to Excel in the Project | References dialog.  \r\n\\par \r\n\\par \\plain\\f4\\fs17 http://www.TheScarms.com/\r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  448.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17\\cf2 'To use Excel within your application create an instance of the Excel Object Library:\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Dim\\plain\\lang1032\\f3\\fs17  oExcelApp \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  excel.Application\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Dim\\plain\\lang1032\\f3\\fs17  oWs \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  excel.Worksheet\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Dim\\plain\\lang1032\\f3\\fs17  oWb \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  excel.Workbook\r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Set\\plain\\lang1032\\f3\\fs17  oExcelApp = \\plain\\lang1032\\f3\\fs17\\cf0 CreateObject\\plain\\lang1032\\f3\\fs17 (\"EXCEL.APPLICATION\")\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Set\\plain\\lang1032\\f3\\fs17  oWs = oExcelApp.ActiveSheet\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Set\\plain\\lang1032\\f3\\fs17  oWb = oExcelApp.ActiveWorkbook\r\n\\par \r\n\\par \r\n\\par }\r\n",
  449.             "ParentID": 68
  450.         },
  451.         {
  452.             "ID": 71,
  453.             "Description": "clsWord97",
  454.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17\\cf2 Private\\plain\\f3\\fs17  objWdApp \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  Word.Application\r\n\\par \\plain\\f3\\fs17\\cf2 Private\\plain\\f3\\fs17  objWdDoc \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  Word.Document\r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  FormFieldType(sFieldName \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 ) \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'DESC:      Determines what type of field this is\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'PARAMS:    sFieldName  =   Name of Field to get type of\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'RETURN:    Long Value for type of field\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'NOTES:     Constants for the long value are from the Word Type Lib\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'Developer:   Brad Wist              Last Revised:   2/23/97\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 'wdFieldFormCheckBox\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'wdFieldFormDropDown\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'wdFieldFormTextInput\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 On\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Error\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 GoTo\\plain\\f3\\fs17  FormFieldType_err\r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  lReturn \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     lReturn = objWdDoc.FormFields((sFieldName)).\\plain\\f3\\fs17\\cf2 Type\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     FormFieldType = objWdDoc.FormFields((sFieldName)).\\plain\\f3\\fs17\\cf2 Type\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 Exit\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par FormFieldType_err:\r\n\\par     FormFieldType = -1\r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  OpenWord() \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Boolean\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'DESC:      Opens Word\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'PARAMS:\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'RETURN:    True if successful, False if fails\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'NOTES:     Could be improved to allow the user to specify if an\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '           existing instance of Word should be used, or a new\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '           instance should be created\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'Developer:   Brad Wist              Last Revised:   2/23/97\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 Set\\plain\\f3\\fs17  objWdApp = \\plain\\f3\\fs17\\cf0 CreateObject\\plain\\f3\\fs17 (\"Word.Application\")\r\n\\par     \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  objWdApp \\plain\\f3\\fs17\\cf2 Is\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Nothing\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par         OpenWord = \\plain\\f3\\fs17\\cf2 False\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 Else\\plain\\f3\\fs17 \r\n\\par         OpenWord = \\plain\\f3\\fs17\\cf2 True\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17  ShowWord(bVisible \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Boolean\\plain\\f3\\fs17 )\r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'DESC:      Turn the instance of Word Visible or Invisible\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'PARAMS:    bVisible    =   Flag which says if Word should be visible\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'NOTES:\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'Author:   Brad Wist              Last Revised:   2/23/97\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par     \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  bReturn \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Boolean\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  objWdApp \\plain\\f3\\fs17\\cf2 Is\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Nothing\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par         bReturn = OpenWord()\r\n\\par         \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Not\\plain\\f3\\fs17  bReturn \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par             MsgBox \"Error trying to Launch Word\"\r\n\\par             \\plain\\f3\\fs17\\cf2 Exit\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17 \r\n\\par         \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     objWdApp.Visible = bVisible\r\n\\par     \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  CloseWord() \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Boolean\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'DESC:      Closes the current instance of Word\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'PARAMS:\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'RETURN:    True if successful, False if fails\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'NOTES:\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'Developer:   Brad Wist              Last Revised:   2/23/97\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 On\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Error\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 GoTo\\plain\\f3\\fs17  CloseWord_Err\r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Not\\plain\\f3\\fs17  objWdApp \\plain\\f3\\fs17\\cf2 Is\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Nothing\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par         objWdApp.Quit\r\n\\par         \\plain\\f3\\fs17\\cf2 Set\\plain\\f3\\fs17  objWdApp = \\plain\\f3\\fs17\\cf2 Nothing\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par         \r\n\\par     CloseWord = \\plain\\f3\\fs17\\cf2 True\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 Exit\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par CloseWord_Err:\r\n\\par     CloseWord = \\plain\\f3\\fs17\\cf2 False\\plain\\f3\\fs17 \r\n\\par     \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  OpenDocument(Optional vFileName \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Variant\\plain\\f3\\fs17 ) \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Boolean\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 On\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Error\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 GoTo\\plain\\f3\\fs17  OpenDocument_Err\r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  bReturn \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Boolean\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  objWdApp \\plain\\f3\\fs17\\cf2 Is\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Nothing\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par         bReturn = OpenWord()\r\n\\par         \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Not\\plain\\f3\\fs17  bReturn \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par             MsgBox \"Error launching Word\"\r\n\\par             \\plain\\f3\\fs17\\cf2 Exit\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par         \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Not\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf0 IsMissing\\plain\\f3\\fs17 (vFileName) \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par         \\plain\\f3\\fs17\\cf1 'opening an existing document\\plain\\f3\\fs17 \r\n\\par         \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf0 Dir\\plain\\f3\\fs17 (vFileName) > \"\" \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par             \\plain\\f3\\fs17\\cf1 'it is there\\plain\\f3\\fs17 \r\n\\par             \\plain\\f3\\fs17\\cf2 Set\\plain\\f3\\fs17  objWdDoc = objWdApp.Documents.\\plain\\f3\\fs17\\cf2 Open\\plain\\f3\\fs17 (vFileName)\r\n\\par         \\plain\\f3\\fs17\\cf2 Else\\plain\\f3\\fs17 \r\n\\par             MsgBox \"File \" & vFileName & \" does not exist.\"\r\n\\par         \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 Else\\plain\\f3\\fs17 \r\n\\par         \\plain\\f3\\fs17\\cf2 Set\\plain\\f3\\fs17  objWdDoc = objWdApp.Documents.\\plain\\f3\\fs17\\cf0 Add\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par             \r\n\\par     OpenDocument = \\plain\\f3\\fs17\\cf2 True\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 Exit\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par     \r\n\\par OpenDocument_Err:\r\n\\par     OpenDocument = \\plain\\f3\\fs17\\cf2 False\\plain\\f3\\fs17 \r\n\\par     \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17  Class_Terminate()\r\n\\par     \\plain\\f3\\fs17\\cf2 On\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Error\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Resume\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Next\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  iReturn \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Integer\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Not\\plain\\f3\\fs17  objWdApp \\plain\\f3\\fs17\\cf2 Is\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Nothing\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par         \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  MsgBox(\"Word may still be open.  Should we attempt to close it?\", vbQuestion + vbYesNo) = vbYes \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par             objWdApp.Quit\r\n\\par             \\plain\\f3\\fs17\\cf2 Set\\plain\\f3\\fs17  objWdApp = \\plain\\f3\\fs17\\cf2 Nothing\\plain\\f3\\fs17 \r\n\\par         \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  RunMacro(sMacro \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 ) \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Boolean\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 On\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Error\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Resume\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Next\\plain\\f3\\fs17 \r\n\\par     objWdApp.Run sMacro\r\n\\par     \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf0 Err\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par         RunMacro = \\plain\\f3\\fs17\\cf2 False\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 Else\\plain\\f3\\fs17 \r\n\\par         RunMacro = \\plain\\f3\\fs17\\cf2 True\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  PrintDocument(Optional vDocName \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Variant\\plain\\f3\\fs17 ) \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Boolean\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 On\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Error\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Resume\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Next\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf0 IsMissing\\plain\\f3\\fs17 (vDocName) \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par         \\plain\\f3\\fs17\\cf1 'want to print the current document\\plain\\f3\\fs17 \r\n\\par         \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  objWdDoc \\plain\\f3\\fs17\\cf2 Is\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Nothing\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par             MsgBox \"Must open a document or specify the document name\"\r\n\\par             PrintDocument = \\plain\\f3\\fs17\\cf2 False\\plain\\f3\\fs17 \r\n\\par             \\plain\\f3\\fs17\\cf2 Exit\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par         \\plain\\f3\\fs17\\cf2 Else\\plain\\f3\\fs17 \r\n\\par             objWdDoc.PrintOut\r\n\\par         \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 Else\\plain\\f3\\fs17 \r\n\\par         \\plain\\f3\\fs17\\cf1 'open a second document temporarily,\\plain\\f3\\fs17 \r\n\\par         \\plain\\f3\\fs17\\cf1 'then print and close it\\plain\\f3\\fs17 \r\n\\par         \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  objDoc \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  Word.Document\r\n\\par         \\plain\\f3\\fs17\\cf2 Set\\plain\\f3\\fs17  objDoc = objWdApp.Documents.\\plain\\f3\\fs17\\cf2 Open\\plain\\f3\\fs17 (vDocName)\r\n\\par         \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  objDoc \\plain\\f3\\fs17\\cf2 Is\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Nothing\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par             MsgBox \"Error opening Word File\"\r\n\\par             PrintDocument = \\plain\\f3\\fs17\\cf2 False\\plain\\f3\\fs17 \r\n\\par             \\plain\\f3\\fs17\\cf2 Exit\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par         \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par         objDoc.PrintOut\r\n\\par         objDoc.\\plain\\f3\\fs17\\cf2 Close\\plain\\f3\\fs17 \r\n\\par         \\plain\\f3\\fs17\\cf2 Set\\plain\\f3\\fs17  objDoc = \\plain\\f3\\fs17\\cf2 Nothing\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf0 Err\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par         PrintDocument = \\plain\\f3\\fs17\\cf2 False\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 Else\\plain\\f3\\fs17 \r\n\\par         PrintDocument = \\plain\\f3\\fs17\\cf2 True\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par         \r\n\\par             \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  GetTextAtBookmark(sBookmark \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 ) \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 On\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Error\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Resume\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Next\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  sText \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  objWdDoc \\plain\\f3\\fs17\\cf2 Is\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Nothing\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par         MsgBox \"Must open a Word Document first\"\r\n\\par         GetTextAtBookmark = \"\"\r\n\\par         \\plain\\f3\\fs17\\cf2 Exit\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  objRange \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  Word.Range\r\n\\par     \\plain\\f3\\fs17\\cf2 Set\\plain\\f3\\fs17  objRange = objWdDoc.\\plain\\f3\\fs17\\cf2 GoTo\\plain\\f3\\fs17  _\r\n\\par         (What:=wdGoToBookmark, _\r\n\\par          \\plain\\f3\\fs17\\cf2 Name\\plain\\f3\\fs17 :=sBookmark)\r\n\\par     sText = objRange.\\plain\\f3\\fs17\\cf0 Text\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf0 Err\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par         GetTextAtBookmark = \"\"\r\n\\par     \\plain\\f3\\fs17\\cf2 Else\\plain\\f3\\fs17 \r\n\\par         GetTextAtBookmark = sText\r\n\\par     \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  InsertAtBookmark(sBookmark \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 , sText \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 , Optional vWhere \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Variant\\plain\\f3\\fs17 ) \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Boolean\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'DESC:\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'PARAMS:    sBookmark   =   Name of Bookmark where text is inserted\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '           sText       =   Text to be inserted\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '           vWhere      =   How the text should be positioned\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '                           0 = At the bookmark (Default)\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '                           1 = After the Bookmark\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '                           2 = Before the Bookmark\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'RETURN:\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'NOTES:\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'Developer:   Brad Wist              Last Revised:   2/23/97\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 On\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Error\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Resume\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Next\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  objWdDoc \\plain\\f3\\fs17\\cf2 Is\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Nothing\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par         InsertAtBookmark = \\plain\\f3\\fs17\\cf2 False\\plain\\f3\\fs17 \r\n\\par         \\plain\\f3\\fs17\\cf2 Exit\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  iWhere \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Integer\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf0 IsMissing\\plain\\f3\\fs17 (vWhere) \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par         iWhere = 0\r\n\\par     \\plain\\f3\\fs17\\cf2 Else\\plain\\f3\\fs17 \r\n\\par         iWhere = \\plain\\f3\\fs17\\cf0 Val\\plain\\f3\\fs17 (vWhere)\r\n\\par     \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  iWhere > 2 \\plain\\f3\\fs17\\cf2 Or\\plain\\f3\\fs17  iWhere < 0 \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par         iWhere = 0\r\n\\par     \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  objRange \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  Word.Range\r\n\\par     \\plain\\f3\\fs17\\cf2 Set\\plain\\f3\\fs17  objRange = objWdDoc.\\plain\\f3\\fs17\\cf2 GoTo\\plain\\f3\\fs17  _\r\n\\par         (What:=wdGoToBookmark, _\r\n\\par          \\plain\\f3\\fs17\\cf2 Name\\plain\\f3\\fs17 :=sBookmark)\r\n\\par          \r\n\\par     \\plain\\f3\\fs17\\cf2 Select\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Case\\plain\\f3\\fs17  iWhere\r\n\\par         \\plain\\f3\\fs17\\cf2 Case\\plain\\f3\\fs17  0\r\n\\par             objRange.\\plain\\f3\\fs17\\cf0 Text\\plain\\f3\\fs17  = sText\r\n\\par         \\plain\\f3\\fs17\\cf2 Case\\plain\\f3\\fs17  1\r\n\\par             objRange.InsertAfter sText\r\n\\par         \\plain\\f3\\fs17\\cf2 Case\\plain\\f3\\fs17  2\r\n\\par             objRange.InsertBefore sText\r\n\\par     \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Select\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf0 Err\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par         InsertAtBookmark = \\plain\\f3\\fs17\\cf2 False\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 Else\\plain\\f3\\fs17 \r\n\\par         InsertAtBookmark = \\plain\\f3\\fs17\\cf2 True\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  SaveDocument(Optional vFileName \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Variant\\plain\\f3\\fs17 )\r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'DESC:      Saves the current document.\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'PARAMS:    vFileName   =   Filename to save document as\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'RETURN:    True if successful, False if fails\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'NOTES:\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'Developer:   Brad Wist              Last Revised:   2/23/97\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 On\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Error\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Resume\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Next\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  objWdDoc \\plain\\f3\\fs17\\cf2 Is\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Nothing\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par         MsgBox \"Nothing to save.  Must open Document first\"\r\n\\par         SaveDocument = \\plain\\f3\\fs17\\cf2 False\\plain\\f3\\fs17 \r\n\\par         \\plain\\f3\\fs17\\cf2 Exit\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf0 IsMissing\\plain\\f3\\fs17 (vFileName) \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par         \\plain\\f3\\fs17\\cf1 'saving the current document using SAVE, not SAVEAS\\plain\\f3\\fs17 \r\n\\par         objWdDoc.Save\r\n\\par     \\plain\\f3\\fs17\\cf2 Else\\plain\\f3\\fs17 \r\n\\par         \\plain\\f3\\fs17\\cf1 'using SAVEAS\\plain\\f3\\fs17 \r\n\\par         objWdDoc.SaveAs vFileName\r\n\\par     \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf0 Err\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par         SaveDocument = \\plain\\f3\\fs17\\cf2 False\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 Else\\plain\\f3\\fs17 \r\n\\par         SaveDocument = \\plain\\f3\\fs17\\cf2 True\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  CloseDocument() \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Boolean\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'DESC:      Closes the current document\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'PARAMS:\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'RETURN:    True if successful, False if fails\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'NOTES:     Could be improved to ask the user if the document\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '           should be saved\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'Developer:   Brad Wist              Last Revised:   2/23/97\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 On\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Error\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Resume\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Next\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  objWdDoc \\plain\\f3\\fs17\\cf2 Is\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Nothing\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par         CloseDocument = \\plain\\f3\\fs17\\cf2 True\\plain\\f3\\fs17 \r\n\\par         \\plain\\f3\\fs17\\cf2 Exit\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par         \r\n\\par     objWdDoc.\\plain\\f3\\fs17\\cf2 Close\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf0 Err\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par         CloseDocument = \\plain\\f3\\fs17\\cf2 False\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 Else\\plain\\f3\\fs17 \r\n\\par         CloseDocument = \\plain\\f3\\fs17\\cf2 True\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par     \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  BookmarksToList(ctlTarget \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  Control) \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Boolean\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'DESC:      Moves list of bookmarks in the current document into\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '           the designation listbox or combobox\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'PARAMS:    Target  =   Listbox or Combobox control\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'RETURN:    True if successful, False if Fails\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'NOTES:     We filter out any bookmarks that really belong to\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '           Form Fields\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'Author:   Brad Wist              Last Revised:   2/23/97\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par \r\n\\par     \\plain\\f3\\fs17\\cf2 On\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Error\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 GoTo\\plain\\f3\\fs17  BookmarksToList_Err\r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  i \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Integer\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  sTemp \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 \r\n\\par \r\n\\par     \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  objWdDoc \\plain\\f3\\fs17\\cf2 Is\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Nothing\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par         MsgBox \"Must open a Word Document first\"\r\n\\par         BookmarksToList = \\plain\\f3\\fs17\\cf2 False\\plain\\f3\\fs17 \r\n\\par         \\plain\\f3\\fs17\\cf2 Exit\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par \r\n\\par     ctlTarget.\\plain\\f3\\fs17\\cf0 Clear\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 For\\plain\\f3\\fs17  i = 1 \\plain\\f3\\fs17\\cf2 To\\plain\\f3\\fs17  objWdDoc.Bookmarks.Count\r\n\\par         \\plain\\f3\\fs17\\cf2 On\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Error\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Resume\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Next\\plain\\f3\\fs17 \r\n\\par         sTemp = objWdDoc.FormFields(objWdDoc.Bookmarks(i).\\plain\\f3\\fs17\\cf2 Name\\plain\\f3\\fs17 )\r\n\\par         \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf0 Err\\plain\\f3\\fs17  = 5941 \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par             \\plain\\f3\\fs17\\cf2 On\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Error\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 GoTo\\plain\\f3\\fs17  BookmarksToList_Err\r\n\\par             ctlTarget.\\plain\\f3\\fs17\\cf0 AddItem\\plain\\f3\\fs17  objWdDoc.Bookmarks(i).\\plain\\f3\\fs17\\cf2 Name\\plain\\f3\\fs17 \r\n\\par         \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 Next\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 On\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Error\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 GoTo\\plain\\f3\\fs17  BookmarksToList_Err\r\n\\par \r\n\\par     BookmarksToList = \\plain\\f3\\fs17\\cf2 True\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 Exit\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par     \r\n\\par BookmarksToList_Err:\r\n\\par     BookmarksToList = \\plain\\f3\\fs17\\cf2 False\\plain\\f3\\fs17 \r\n\\par     \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  BookmarksToString() \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'DESC:      Gets the list of bookmarks in the current document and\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '           returns them in a string, separated by CRs.  A double\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '           CR marks the end of the list\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'PARAMS:\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'RETURN:    String holding all of the bookmark names\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'NOTES:\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'Developer:   Brad Wist              Last Revised:   2/23/97\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par     \\plain\\f3\\fs17\\cf2 On\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Error\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 GoTo\\plain\\f3\\fs17  BookmarksToString_Err\r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  sText \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  i \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Integer\\plain\\f3\\fs17 \r\n\\par \r\n\\par     \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  objWdDoc \\plain\\f3\\fs17\\cf2 Is\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Nothing\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par         MsgBox \"Must open a Word Document first\"\r\n\\par         BookmarksToString = \"\"\r\n\\par         \\plain\\f3\\fs17\\cf2 Exit\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par \r\n\\par     \\plain\\f3\\fs17\\cf2 For\\plain\\f3\\fs17  i = 1 \\plain\\f3\\fs17\\cf2 To\\plain\\f3\\fs17  objWdDoc.Bookmarks.Count\r\n\\par         sText = sText & objWdDoc.Bookmarks(i).\\plain\\f3\\fs17\\cf2 Name\\plain\\f3\\fs17  & vbCr\r\n\\par     \\plain\\f3\\fs17\\cf2 Next\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     BookmarksToString = sText\r\n\\par     \\plain\\f3\\fs17\\cf2 Exit\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par     \r\n\\par BookmarksToString_Err:\r\n\\par     BookmarksToString = \\plain\\f3\\fs17\\cf2 False\\plain\\f3\\fs17 \r\n\\par     \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  FormFieldsToList(ctlTarget \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  Control) \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Boolean\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'DESC:      Gets list of FormFields in the Document and puts the\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '           list into a listbox or combobox\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'PARAMS:    ctlTarget   =   Listbox or Combobox to put list in\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'RETURN:    True if successful, False if fails\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'NOTES:\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'Developer:   Brad Wist              Last Revised:   2/23/97\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  i \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Integer\\plain\\f3\\fs17 \r\n\\par \r\n\\par     \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  objWdDoc \\plain\\f3\\fs17\\cf2 Is\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Nothing\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par         MsgBox \"Must open a Word Document first\"\r\n\\par         FormFieldsToList = \\plain\\f3\\fs17\\cf2 False\\plain\\f3\\fs17 \r\n\\par         \\plain\\f3\\fs17\\cf2 Exit\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par \r\n\\par     ctlTarget.\\plain\\f3\\fs17\\cf0 Clear\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  objWdDoc.FormFields.Count > 0 \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par         \\plain\\f3\\fs17\\cf2 For\\plain\\f3\\fs17  i = 1 \\plain\\f3\\fs17\\cf2 To\\plain\\f3\\fs17  objWdDoc.FormFields.Count\r\n\\par             ctlTarget.\\plain\\f3\\fs17\\cf0 AddItem\\plain\\f3\\fs17  objWdDoc.FormFields(i).\\plain\\f3\\fs17\\cf2 Name\\plain\\f3\\fs17 \r\n\\par         \\plain\\f3\\fs17\\cf2 Next\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par     FormFieldsToList = \\plain\\f3\\fs17\\cf2 True\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 Exit\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  GetFormFieldValue(sFieldName \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 ) \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'DESC:      Retrieves the Value of a FormField\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'PARAMS:    sFieldName  =   Field name to retrieve value for\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'RETURN:    String containing the Value or list of values\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '           empty string if fails\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'NOTES:     Type of value depends on the field type\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'Developer:   Brad Wist              Last Revised:   2/23/97\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 On\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Error\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 GoTo\\plain\\f3\\fs17  GetFormFieldValue_err\r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  v\r\n\\par     \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  lType \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  sValue \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  i \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Integer\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     lType = FormFieldType(sFieldName)\r\n\\par     \\plain\\f3\\fs17\\cf2 Select\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Case\\plain\\f3\\fs17  lType\r\n\\par         \\plain\\f3\\fs17\\cf2 Case\\plain\\f3\\fs17  wdFieldFormCheckBox\r\n\\par             v = objWdDoc.FormFields((sFieldName)).CheckBox.Value\r\n\\par         \\plain\\f3\\fs17\\cf2 Case\\plain\\f3\\fs17  wdFieldFormDropDown\r\n\\par             v = objWdDoc.FormFields((sFieldName)).DropDown.Value\r\n\\par             \\plain\\f3\\fs17\\cf2 For\\plain\\f3\\fs17  i = 1 \\plain\\f3\\fs17\\cf2 To\\plain\\f3\\fs17  objWdDoc.FormFields((sFieldName)).DropDown.ListEntries.Count\r\n\\par                 v = v & vbCr & objWdDoc.FormFields((sFieldName)).DropDown.ListEntries(i).\\plain\\f3\\fs17\\cf2 Name\\plain\\f3\\fs17 \r\n\\par             \\plain\\f3\\fs17\\cf2 Next\\plain\\f3\\fs17 \r\n\\par         \\plain\\f3\\fs17\\cf2 Case\\plain\\f3\\fs17  wdFieldFormTextInput\r\n\\par             v = objWdDoc.FormFields((sFieldName)).Result\r\n\\par     \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Select\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf0 IsNumeric\\plain\\f3\\fs17 (v) \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par         GetFormFieldValue = \\plain\\f3\\fs17\\cf0 Trim\\plain\\f3\\fs17 (\\plain\\f3\\fs17\\cf2 CStr\\plain\\f3\\fs17 (v))\r\n\\par     \\plain\\f3\\fs17\\cf2 Else\\plain\\f3\\fs17 \r\n\\par         GetFormFieldValue = v\r\n\\par     \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 Exit\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par     \r\n\\par GetFormFieldValue_err:\r\n\\par     GetFormFieldValue = \"\"\r\n\\par     \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  SetFormFieldValue(sFieldName \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 , sValue \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 ) \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Boolean\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'DESC:\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'PARAMS:    sFieldName  =   Field Name to set value for\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '           sValue      =   Value to set\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'RETURN:    True if successful, False if fails\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'NOTES:     Value depends on type of field being set\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'Developer:   Brad Wist              Last Revised:   2/23/97\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 On\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Error\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 GoTo\\plain\\f3\\fs17  SetFormFieldValue_err\r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 Dim\\plain\\f3\\fs17  lType \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Long\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     lType = FormFieldType(sFieldName)\r\n\\par     \\plain\\f3\\fs17\\cf2 Select\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Case\\plain\\f3\\fs17  lType\r\n\\par         \\plain\\f3\\fs17\\cf2 Case\\plain\\f3\\fs17  wdFieldFormCheckBox\r\n\\par             \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17  sValue = \"True\" \\plain\\f3\\fs17\\cf2 Then\\plain\\f3\\fs17 \r\n\\par                 objWdDoc.FormFields((sFieldName)).CheckBox.Value = \\plain\\f3\\fs17\\cf2 True\\plain\\f3\\fs17 \r\n\\par             \\plain\\f3\\fs17\\cf2 Else\\plain\\f3\\fs17 \r\n\\par                 objWdDoc.FormFields((sFieldName)).CheckBox.Value = \\plain\\f3\\fs17\\cf2 False\\plain\\f3\\fs17 \r\n\\par             \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 If\\plain\\f3\\fs17 \r\n\\par         \\plain\\f3\\fs17\\cf2 Case\\plain\\f3\\fs17  wdFieldFormDropDown\r\n\\par             objWdDoc.FormFields((sFieldName)).DropDown.Value = \\plain\\f3\\fs17\\cf0 Val\\plain\\f3\\fs17 (sValue)\r\n\\par         \\plain\\f3\\fs17\\cf2 Case\\plain\\f3\\fs17  wdFieldFormTextInput\r\n\\par             objWdDoc.FormFields((sFieldName)).Result = sValue\r\n\\par     \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Select\\plain\\f3\\fs17 \r\n\\par  \r\n\\par     \r\n\\par     SetFormFieldValue = \\plain\\f3\\fs17\\cf2 True\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf2 Exit\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par     \r\n\\par SetFormFieldValue_err:\r\n\\par     SetFormFieldValue = \\plain\\f3\\fs17\\cf2 False\\plain\\f3\\fs17 \r\n\\par     \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17  GetDocInfo(sPropertyName \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 ) \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 String\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'DESC:      Gets the property of the current document\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'PARAMS:    sPropertyName   =   The name of the property to retrieve\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'RETURN:    The value of the selected property\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'NOTES:\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 'Developer:   Brad Wist              Last Revised:   2/23/97\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '*****************************************************************\\plain\\f3\\fs17 \r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 On\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Error\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 GoTo\\plain\\f3\\fs17  GetDocInfo_Err\r\n\\par     \r\n\\par     GetDocInfo = objWdDoc.BuiltInDocumentProperties((sPropertyName))\r\n\\par     \r\n\\par     \\plain\\f3\\fs17\\cf2 Exit\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par     \r\n\\par GetDocInfo_Err:\r\n\\par     GetDocInfo = \"\"\r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Function\\plain\\f3\\fs17 \r\n\\par \r\n\\par }\r\n",
  455.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  456.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  457.             "ParentID": 47
  458.         },
  459.         {
  460.             "ID": 75,
  461.             "Description": "Start Windows Screen Saver",
  462.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17\\cf2 'Copy the following code to a .bas module:\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Const\\plain\\lang1032\\f3\\fs17  WM_SYSCOMMAND = &H112&\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Const\\plain\\lang1032\\f3\\fs17  SC_SCREENSAVE = &HF140&\r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Declare\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Function\\plain\\lang1032\\f3\\fs17  SendMessage \\plain\\lang1032\\f3\\fs17\\cf1 Lib\\plain\\lang1032\\f3\\fs17  \"user32\" \\plain\\lang1032\\f3\\fs17\\cf1 Alias\\plain\\lang1032\\f3\\fs17  \"SendMessageA\" (\\plain\\lang1032\\f3\\fs17\\cf1 ByVal\\plain\\lang1032\\f3\\fs17  hWnd \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Long\\plain\\lang1032\\f3\\fs17 , _\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ByVal\\plain\\lang1032\\f3\\fs17  wMsg \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Long\\plain\\lang1032\\f3\\fs17 , \\plain\\lang1032\\f3\\fs17\\cf1 ByVal\\plain\\lang1032\\f3\\fs17  wParam \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Long\\plain\\lang1032\\f3\\fs17 , \\plain\\lang1032\\f3\\fs17\\cf1 ByVal\\plain\\lang1032\\f3\\fs17  lParam \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Long\\plain\\lang1032\\f3\\fs17 ) \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par }\r\n",
  463.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 With a single call to the SendMessage function you can start the Windows screen saver.\r\n\\par \r\n\\par \r\n\\par }\r\n",
  464.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17\\cf2 'Add this code to a command button:\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Call\\plain\\lang1032\\f3\\fs17  SendMessage(\\plain\\lang1032\\f3\\fs17\\cf0 Me\\plain\\lang1032\\f3\\fs17 .hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)\r\n\\par \r\n\\par \r\n\\par }\r\n",
  465.             "ParentID": 20
  466.         },
  467.         {
  468.             "ID": 80,
  469.             "Description": "Tile an image on a form",
  470.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  471.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 Using an image control and a simple loop, you can tile the image to cover the entire background of your form.\r\n\\par \r\n\\par \\plain\\f4\\fs17 \r\n\\par Create a form and add an Image control to it.  Set the Image control's Visible property to False.  Set its Picture property to the picture you want to tile.   Pictures can be bitmaps, jpeg, gif files,.... anything supported by control.   The Form's Auto-Redraw property must also be False.\r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  472.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17\\cf1 Private\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Sub\\plain\\lang1032\\f3\\fs17  Form_Paint()\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Dim\\plain\\lang1032\\f3\\fs17  X \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Integer\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Dim\\plain\\lang1032\\f3\\fs17  Y \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Integer\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 '\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 ' Note, the visible property of the image should be set false,\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 ' and the Form's Auto-Redraw property must be False.\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 '\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 ' The Form_Paint event is used since it occurs whenever the Form\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 ' is repainted (when the form is restored from minimized form, form\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 ' has been resized, maximized etc.)\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 '\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 For\\plain\\lang1032\\f3\\fs17  X = 0 \\plain\\lang1032\\f3\\fs17\\cf1 To\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf0 Me\\plain\\lang1032\\f3\\fs17 .\\plain\\lang1032\\f3\\fs17\\cf0 Width\\plain\\lang1032\\f3\\fs17  Step Image1.\\plain\\lang1032\\f3\\fs17\\cf0 Width\\plain\\lang1032\\f3\\fs17 \r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 For\\plain\\lang1032\\f3\\fs17  Y = 0 \\plain\\lang1032\\f3\\fs17\\cf1 To\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf0 Me\\plain\\lang1032\\f3\\fs17 .Height Step Image1.Height\r\n\\par         PaintPicture Image1, X, Y\r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 Next\\plain\\lang1032\\f3\\fs17  Y\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Next\\plain\\lang1032\\f3\\fs17  X\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Sub\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par \r\n\\par }\r\n",
  473.             "ParentID": 8
  474.         },
  475.         {
  476.             "ID": 81,
  477.             "Description": "VB6 Features",
  478.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  479.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 String Functions, Assign Arrays, Add Controls Dynamically\r\n\\par VB6 introduced new string functions that allow you to convert an array to a string (Join), a string to an array (Split), reverse a string (StrReverse), Replace portions of the string, and search a string from the end (InStrRev) instead of the beginning.  It also lets you to assign arrays to one another, pass them as the return value of a function and Filter out certain elements.\r\n\\par \r\n\\par The Validate event lets you validate a control without having to do it in the LostFocus event then setting focus back to that control.  The CausesValidation property  determines if the Validate event should be triggered or not. In this example the textbox's Validate event issues a message when the text property is empty.  Clicking any button causes the validation to occur.   Except when you click Quit.  That is because its CausesValidation property is set False.\r\n\\par \r\n\\par Other cool VB6 features are the ability to add and remove controls dynamically at runtime and the Call By Name feature.  This lets you access properties and methods by specifying a string containing the name of the property or method, rather than by coding the name explicitly.  My Dynamically Add Controls and Create a Scrollable Form page offers another approach to dynamically adding controls.\r\n\\par \r\n\\par \\plain\\f4\\fs17 http://www.TheScarms.com/\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  480.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17\\cf1 'To add a control dynamically, create an object of the desired type:\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 ' Define an object variable of type Command button.\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 ' The Withevents statement allows the button object\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 ' to respond to events occurring on the new button.\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 Private\\plain\\f3\\fs17  WithEvents btnObj \\plain\\f3\\fs17\\cf2 As\\plain\\f3\\fs17  CommandButton\r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 'Add it by setting its properties and adding it to the controls collection:\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17  Form_Load()\r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 ' Dynamically add a new button to the form. The\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 ' item to add, a button in this case, must be a\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 ' member of the VB object as displayed in the\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 ' Object Browser. The second parameter is the\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 ' the new control's name.\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 Set\\plain\\f3\\fs17  btnObj = Controls.\\plain\\f3\\fs17\\cf0 Add\\plain\\f3\\fs17 (\"VB.CommandButton\", \"btnObj\")\r\n\\par \\plain\\f3\\fs17\\cf2 With\\plain\\f3\\fs17  btnObj\r\n\\par     .Visible = \\plain\\f3\\fs17\\cf2 True\\plain\\f3\\fs17 \r\n\\par     .Caption = \"New Button\"\r\n\\par     .Top = 720\r\n\\par     .\\plain\\f3\\fs17\\cf0 Left\\plain\\f3\\fs17  = 120\r\n\\par     .\\plain\\f3\\fs17\\cf0 Width\\plain\\f3\\fs17  = 2175\r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 With\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 'Deleted  it by removing it from the controls collection:\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17  cmdRemove_Click()\r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 ' Remove the new button and hide the Remove button.\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 '\\plain\\f3\\fs17 \r\n\\par Form1.Controls.\\plain\\f3\\fs17\\cf0 Remove\\plain\\f3\\fs17  (\"btnObj\")\r\n\\par cmdRemove.Visible = \\plain\\f3\\fs17\\cf2 False\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf2 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf2 Sub\\plain\\f3\\fs17 \r\n\\par \r\n\\par }\r\n",
  481.             "ParentID": 0
  482.         },
  483.         {
  484.             "ID": 82,
  485.             "Description": "Wait for a process to terminate",
  486.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17\\cf1 'Copy the following code to a .bas module:\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Const\\plain\\lang1032\\f3\\fs17  SYNCHRONIZE = &H100000  \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Const\\plain\\lang1032\\f3\\fs17  INFINITE = &HFFFF  \\plain\\lang1032\\f3\\fs17\\cf1 ' Wait forever \\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Const\\plain\\lang1032\\f3\\fs17  WAIT_OBJECT_0 = 0   \\plain\\lang1032\\f3\\fs17\\cf1 ' The state of the specified object is signaled \\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Const\\plain\\lang1032\\f3\\fs17  WAIT_TIMEOUT = &H102  \\plain\\lang1032\\f3\\fs17\\cf1 ' The time-out interval elapsed and the object\\rquote s state is nonsignaled. \\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Declare\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Function\\plain\\lang1032\\f3\\fs17  OpenProcess \\plain\\lang1032\\f3\\fs17\\cf2 Lib\\plain\\lang1032\\f3\\fs17  \"kernel32\" (\\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  dwDesiredAccess \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 , _\r\n\\par             \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  bInheritHandle \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 , \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  dwProcessId \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 ) \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Declare\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Function\\plain\\lang1032\\f3\\fs17  WaitForSingleObject \\plain\\lang1032\\f3\\fs17\\cf2 Lib\\plain\\lang1032\\f3\\fs17  \"kernel32\" (\\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  hHandle \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 , _\r\n\\par             \\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  dwMilliseconds \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 ) \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Declare\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Function\\plain\\lang1032\\f3\\fs17  CloseHandle \\plain\\lang1032\\f3\\fs17\\cf2 Lib\\plain\\lang1032\\f3\\fs17  \"kernel32\" (\\plain\\lang1032\\f3\\fs17\\cf2 ByVal\\plain\\lang1032\\f3\\fs17  hObject \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 ) \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par }\r\n",
  487.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 Very often the need arises to start an application using the Shell command and wait for it to end before continuing with your processing.  It is very easy to do this using the WaitForSingleObject API call.  The following code and discussion details how to determine when a process ends.  To see how to wait for multiple items see my Spy on a Folder to Detect When it Changes example. You can also use the Windows Scripting Host (WSH) to wait for a process to terminate.\\plain\\f4\\fs17 \r\n\\par \r\n\\par http://www.TheScarms.com/\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  488.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17\\cf1 'Copy the following code to the command button's Click event:\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ' The WaitForSingleObject function returns when one of the following occurs:\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ' - The specified object is in the signaled state.\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ' - The time-out interval elapses.\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 '\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ' The dwMilliseconds parameter specifies the time-out interval, in milliseconds.\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ' The function returns if the interval elapses, even if the object\\rquote s state is\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ' nonsignaled. If dwMilliseconds is zero, the function tests the object\\rquote s state\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ' and returns immediately. If dwMilliseconds is INFINITE, the function\\rquote s time-out\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ' interval never elapses.\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 '\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ' This example waits an INFINITE amount of time for the process to end. As a\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ' result this process will be frozen until the shelled process terminates. The\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ' down side is that if the shelled process hangs, so will this one.\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 '\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ' A better approach is to wait a specific amount of time. Once the time-out\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ' interval expires, test the return value. If it is WAIT_TIMEOUT, the process\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ' is still not signaled. Then you can either wait again or continue with your\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ' processing.\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 '\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ' DOS Applications:\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ' Waiting for a DOS application is tricky because the DOS window never goes\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ' away when the application is done. To get around this, prefix the app that\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ' you are shelling to with \"command.com /c\".\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 '\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ' For example: lPid = Shell(\"command.com /c \" & txtApp.Text, vbNormalFocus)\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 '\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Dim\\plain\\lang1032\\f3\\fs17  lPid \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Dim\\plain\\lang1032\\f3\\fs17  lHnd \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Dim\\plain\\lang1032\\f3\\fs17  lRet \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 If\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf0 Trim\\plain\\lang1032\\f3\\fs17 $(txtApp) = \"\" \\plain\\lang1032\\f3\\fs17\\cf2 Then\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Exit\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par lPid = \\plain\\lang1032\\f3\\fs17\\cf0 Shell\\plain\\lang1032\\f3\\fs17 (txtApp.\\plain\\lang1032\\f3\\fs17\\cf0 Text\\plain\\lang1032\\f3\\fs17 , vbNormalFocus)\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 If\\plain\\lang1032\\f3\\fs17  lPid <> 0 \\plain\\lang1032\\f3\\fs17\\cf2 Then\\plain\\lang1032\\f3\\fs17 \r\n\\par         \\plain\\lang1032\\f3\\fs17\\cf1 'Get a handle to the shelled process.\\plain\\lang1032\\f3\\fs17 \r\n\\par         lHnd = OpenProcess(SYNCHRONIZE, 0, lPid)\r\n\\par         \\plain\\lang1032\\f3\\fs17\\cf1 'If successful, wait for the application to end and close the handle.\\plain\\lang1032\\f3\\fs17 \r\n\\par         \\plain\\lang1032\\f3\\fs17\\cf2 If\\plain\\lang1032\\f3\\fs17  lHnd <> 0 \\plain\\lang1032\\f3\\fs17\\cf2 Then\\plain\\lang1032\\f3\\fs17                                                       \r\n\\par                 lRet = WaitForSingleObject(lHnd, INFINITE) \r\n\\par                 CloseHandle (lHnd) \r\n\\par         \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 If\\plain\\lang1032\\f3\\fs17 \r\n\\par         MsgBox \"Just terminated.\", vbInformation, \"Shelled Application\"\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 If\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par \r\n\\par }\r\n",
  489.             "ParentID": 20
  490.         },
  491.         {
  492.             "ID": 83,
  493.             "Description": "Trap mouse into form",
  494.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17\\cf1 'Module Code\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Option\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Explicit\\plain\\lang1032\\f3\\fs17   \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Type\\plain\\lang1032\\f3\\fs17  RECT\r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf0 Left\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par     Top \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf0 Right\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par     Bottom \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Type\\plain\\lang1032\\f3\\fs17   \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Declare\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Function\\plain\\lang1032\\f3\\fs17  ClipCursor \\plain\\lang1032\\f3\\fs17\\cf2 Lib\\plain\\lang1032\\f3\\fs17  \"user32\" _\r\n\\par (lpRect \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  Any) \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17  DisableTrap(CurForm \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  Form)\r\n\\par         \\plain\\lang1032\\f3\\fs17\\cf2 Dim\\plain\\lang1032\\f3\\fs17  erg \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'Declare a variable for the procedure\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'to set the new coordinates\\plain\\lang1032\\f3\\fs17 \r\n\\par         \\plain\\lang1032\\f3\\fs17\\cf2 Dim\\plain\\lang1032\\f3\\fs17  NewRect \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  RECT\r\n\\par         CurForm.Caption = \"Mouse released\"\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'Set the new coordinates to full screen\\plain\\lang1032\\f3\\fs17 \r\n\\par         \\plain\\lang1032\\f3\\fs17\\cf2 With\\plain\\lang1032\\f3\\fs17  NewRect\r\n\\par             .\\plain\\lang1032\\f3\\fs17\\cf0 Left\\plain\\lang1032\\f3\\fs17  = 0&\r\n\\par             .Top = 0&\r\n\\par             .\\plain\\lang1032\\f3\\fs17\\cf0 Right\\plain\\lang1032\\f3\\fs17  = Screen.\\plain\\lang1032\\f3\\fs17\\cf0 Width\\plain\\lang1032\\f3\\fs17  / Screen.TwipsPerPixelX\r\n\\par             .Bottom = Screen.Height / Screen.TwipsPerPixelY\r\n\\par         \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 With\\plain\\lang1032\\f3\\fs17 \r\n\\par         erg& = ClipCursor(NewRect)\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17   \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17  EnableTrap(CurForm \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  Form)\r\n\\par         \\plain\\lang1032\\f3\\fs17\\cf2 Dim\\plain\\lang1032\\f3\\fs17  x \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 , y \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 , erg \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'Declare a variable for the procedure\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'to set the new coordinates\\plain\\lang1032\\f3\\fs17 \r\n\\par         \\plain\\lang1032\\f3\\fs17\\cf2 Dim\\plain\\lang1032\\f3\\fs17  NewRect \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  RECT\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'Get the TwipsperPixel\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'The Form's ScaleMode must be set to Twips!!!\\plain\\lang1032\\f3\\fs17 \r\n\\par         x& = Screen.TwipsPerPixelX\r\n\\par         y& = Screen.TwipsPerPixelY\r\n\\par         CurForm.Caption = \"Mouse trapped\"\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'Set the Cursor-Region to the coordinates\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'of the form\\plain\\lang1032\\f3\\fs17 \r\n\\par         \\plain\\lang1032\\f3\\fs17\\cf2 With\\plain\\lang1032\\f3\\fs17  NewRect\r\n\\par             .\\plain\\lang1032\\f3\\fs17\\cf0 Left\\plain\\lang1032\\f3\\fs17  = CurForm.\\plain\\lang1032\\f3\\fs17\\cf0 Left\\plain\\lang1032\\f3\\fs17  / x&\r\n\\par             .Top = CurForm.Top / y&\r\n\\par             .\\plain\\lang1032\\f3\\fs17\\cf0 Right\\plain\\lang1032\\f3\\fs17  = .\\plain\\lang1032\\f3\\fs17\\cf0 Left\\plain\\lang1032\\f3\\fs17  + CurForm.\\plain\\lang1032\\f3\\fs17\\cf0 Width\\plain\\lang1032\\f3\\fs17  / x&\r\n\\par             .Bottom = .Top + CurForm.Height / y&\r\n\\par         \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 With\\plain\\lang1032\\f3\\fs17 \r\n\\par         erg& = ClipCursor(NewRect)\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17   \r\n\\par }\r\n",
  495.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 This tip demonstrates how to use the clip cursor API function to prevent the mouse pointer from being moved outside of a form.\r\n\\par \r\n\\par If the BorderStyle of the form is sizable (either 2 or 5) the user can escape from the form by resizing it! This can be avoided by setting BorberStyle=0, 1, 3 or 4\r\n\\par }\r\n",
  496.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17\\cf1 'Form Code\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 '\\plain\\f4\\fs17\\cf1 Add\\plain\\lang1032\\f3\\fs17\\cf1  Two command buttons to Form1\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Private\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf0 Command\\plain\\lang1032\\f3\\fs17 1_Click()\r\n\\par         EnableTrap Form1\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17   \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Private\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf0 Command\\plain\\lang1032\\f3\\fs17 2_Click()\r\n\\par         DisableTrap Form1\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17   \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 Private\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Sub\\plain\\lang1032\\f3\\fs17  Form_Unload(Cancel \\plain\\lang1032\\f3\\fs17\\cf2 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Integer\\plain\\lang1032\\f3\\fs17 )\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 'App is closed -> release the mouse!!\\plain\\lang1032\\f3\\fs17 \r\n\\par         DisableTrap Form1\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  Sub\r\n\\par }\r\n",
  497.             "ParentID": 14
  498.         },
  499.         {
  500.             "ID": 84,
  501.             "Description": "About SQL",
  502.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  503.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 By: John McGuire\r\n\\par \r\n\\par \r\n\\par Major Weakness: SQL is SLOW! A hand-coded search\r\n\\par (with indices) is MUCH faster than an equivalent\r\n\\par SQL call, especially with complex search criteria.\r\n\\par For example: \r\n\\par \r\n\\par SELECT * FROM Table WHERE SSN = '555-33-1234' AND Posted #01-31-95# \r\n\\par \r\n\\par is a lot slower than: \r\n\\par \r\n\\par Table.Index = \"SSN\" \r\n\\par Table.Seek \"=\", \"555-33-1234\" \r\n\\par If Not Table.NoMatch Then \r\n\\par While Not Table.EOF \r\n\\par \r\n\\par If Table(\"SSN\") <> \"555-33-1234\" Then \r\n\\par Table.MoveLast 'Forces an EOF \r\n\\par ElseIf Table(\"Posted\") #01-31-95# Then \r\n\\par 'Do something \r\n\\par End If \r\n\\par Table.MoveNext \r\n\\par \r\n\\par Wend \r\n\\par End If \r\n\\par \r\n\\par Granted, it is a LOT more code, but I ran a VERY\r\n\\par similar query that took THIRTY HOURS! The equivalent\r\n\\par hand-written code took ELEVEN MINUTES! That's 163\r\n\\par times faster! I think basically SQL isn't very good\r\n\\par at figuring out which indexes to use (I also think\r\n\\par I've read something to the effect that the newer\r\n\\par version, 2.0 or 2.5, IS better at this). \r\n\\par \r\n\\par }\r\n",
  504.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  505.             "ParentID": 25
  506.         },
  507.         {
  508.             "ID": 85,
  509.             "Description": "Speed up things",
  510.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\f4\\fs17\\cf1 'Often when looping through a recordset people will use the following code:\\plain\\f4\\fs17 \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf2 Do\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 While\\plain\\f4\\fs17  \\plain\\f4\\fs17\\cf2 Not\\plain\\f4\\fs17  records.\\plain\\f4\\fs17\\cf0 EOF\\plain\\f4\\fs17 \r\n\\par     combo1.\\plain\\f4\\fs17\\cf0 AddItem\\plain\\f4\\fs17  records![Full \\plain\\f4\\fs17\\cf2 Name\\plain\\f4\\fs17 ]\r\n\\par     records.movenext\r\n\\par \\plain\\f4\\fs17\\cf2 Loop\\plain\\f4\\fs17       \r\n\\par \r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 'The problem Is that everytime the database moves To the Next record it must make a check To 'see If it has reached the End of the file. This slows the looping down a great deal. When moving' 'Or searching throuch a large record Set this can make a major difference.  Here Is a better way 'To Do it.\\plain\\f4\\fs17 \r\n\\par \r\n\\par records.movelast\r\n\\par intRecCount=records.RecordCount\r\n\\par records.movefirst\r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf2 For\\plain\\f4\\fs17  intCounter=1 \\plain\\f4\\fs17\\cf2 To\\plain\\f4\\fs17  intRecCount\r\n\\par     combo1.\\plain\\f4\\fs17\\cf0 AddItem\\plain\\f4\\fs17  records![Full \\plain\\f4\\fs17\\cf2 Name\\plain\\f4\\fs17 ]\r\n\\par     records.movenext\r\n\\par \\plain\\f4\\fs17\\cf2 Next\\plain\\f4\\fs17  intCounter\r\n\\par \r\n\\par \\plain\\f4\\fs17\\cf1 'You should see about a 33% speed increase.\\plain\\lang1032\\f3\\fs17\\cf1 \r\n\\par }\r\n",
  511.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 Here is a trick to loop through a recordset faster.  \r\n\\par }\r\n",
  512.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  513.             "ParentID": 25
  514.         },
  515.         {
  516.             "ID": 89,
  517.             "Description": "Floppy in drive?",
  518.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17\\cf1 'Try getting the files in the drive and if you get an error then there is no floppy inserted.\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 On\\plain\\lang1032\\f3\\fs17  local \\plain\\lang1032\\f3\\fs17\\cf2 Error\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Resume\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Next\\plain\\lang1032\\f3\\fs17 \r\n\\par ret=\\plain\\lang1032\\f3\\fs17\\cf0 Len\\plain\\lang1032\\f3\\fs17 (\\plain\\lang1032\\f3\\fs17\\cf0 Dir\\plain\\lang1032\\f3\\fs17 $(\"a:\\\\*.*\"))\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 If\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf0 Err\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf2 Then\\plain\\lang1032\\f3\\fs17 \r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 'no floppy in the drive\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf2 End\\plain\\lang1032\\f3\\fs17  if\r\n\\par }\r\n",
  519.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 \r\n\\par }\r\n",
  520.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green127\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17 \r\n\\par }\r\n",
  521.             "ParentID": 32
  522.         },
  523.         {
  524.             "ID": 90,
  525.             "Description": "Create",
  526.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17\\cf2 'Place the following in a Module:\\plain\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 Public\\plain\\f3\\fs17  DBName \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 String\\plain\\f3\\fs17          \\plain\\f3\\fs17\\cf2 'Path of database\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 Public\\plain\\f3\\fs17  MainDB \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  Database       \r\n\\par \\plain\\f3\\fs17\\cf1 Private\\plain\\f3\\fs17  MainTD \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  Table\r\n\\par \\plain\\f3\\fs17\\cf1 Private\\plain\\f3\\fs17  MainFD \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  Field\r\n\\par \\plain\\f3\\fs17\\cf1 Private\\plain\\f3\\fs17  MainID \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  Index\r\n\\par \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Sub\\plain\\f3\\fs17  CreateDB()\r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 'Create the database using DBName as the database name\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf1 Set\\plain\\f3\\fs17  MainDB = DBEngine.Workspaces(0).CreateDatabase(DBName, dbLangGeneral, dbVersion30)\r\n\\par \r\n\\par     BeginTrans\r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 'Create a table in the database\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf1 Set\\plain\\f3\\fs17  MainTD = MainDB.CreateTableDef(\"name of database\")\r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 'Create the fields\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf1 Call\\plain\\f3\\fs17  CreateFieldDB(\"Path\", dbText, 255)\r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 'Create an index\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf1 Call\\plain\\f3\\fs17  CreateIndexDB(\"IdPath\",\"Path\",\\plain\\f3\\fs17\\cf1 True\\plain\\f3\\fs17 )\r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 'Append the table to the database\\plain\\f3\\fs17 \r\n\\par     MainDB.TableDefs.Append MainTD\r\n\\par \r\n\\par     CommitTrans\r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Sub\\plain\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Sub\\plain\\f3\\fs17  CreateFieldDB(FieldName \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 String\\plain\\f3\\fs17 , FieldType \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 String\\plain\\f3\\fs17 , FieldLength \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Integer\\plain\\f3\\fs17 )\r\n\\par \r\n\\par     \\plain\\f3\\fs17\\cf1 On\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Error\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 GoTo\\plain\\f3\\fs17  ErrHandle\r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 'Create the fields for the Client Information table\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf1 Set\\plain\\f3\\fs17  MainFD = MainTD.CreateField(FieldName, FieldType, FieldLength)\r\n\\par     MainFD.AllowZeroLength = \\plain\\f3\\fs17\\cf1 True\\plain\\f3\\fs17 \r\n\\par     MainTD.Fields.Append MainFD\r\n\\par \r\n\\par     \\plain\\f3\\fs17\\cf1 Exit\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Sub\\plain\\f3\\fs17 \r\n\\par \r\n\\par ErrHandle:\r\n\\par     \\plain\\f3\\fs17\\cf1 Select\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Case\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf0 Err\\plain\\f3\\fs17 .Number\r\n\\par         \\plain\\f3\\fs17\\cf1 Case\\plain\\f3\\fs17  3219               \\plain\\f3\\fs17\\cf2 'AllowZeroLength cannot be True\\plain\\f3\\fs17 \r\n\\par             \\plain\\f3\\fs17\\cf1 Resume\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Next\\plain\\f3\\fs17          \\plain\\f3\\fs17\\cf2 'Leave as is...AllowZeroLength=False\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf1 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Select\\plain\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Sub\\plain\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 Private\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Sub\\plain\\f3\\fs17  CreateIndexDB(strIndexName \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 String\\plain\\f3\\fs17 , strFieldName \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 String\\plain\\f3\\fs17 , bUnique \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Boolean\\plain\\f3\\fs17 )\r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf2 'Create an index\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf1 Set\\plain\\f3\\fs17  MainID = MainTD.CreateIndex(strIndexName)\r\n\\par     MainID.Fields.Append MainID.CreateField(strFieldName)\r\n\\par     MainID.Unique = bUnique\r\n\\par     MainTD.Indexes.Append MainID\r\n\\par \r\n\\par \\plain\\f3\\fs17\\cf1 End\\plain\\f3\\fs17  Sub\r\n\\par }\r\n",
  527.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17 By:     Jody Gelowitz\r\n\\par \r\n\\par \r\n\\par Set the value of \"DBName\", then call \"CreateDB\" to create the database\r\n\\par }\r\n",
  528.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}{\\f5\\fswiss\\fprq2\\fcharset161 System;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17\\cf1 Call\\plain\\lang1032\\f3\\fs17  CreateDB\r\n\\par }\r\n",
  529.             "ParentID": 25
  530.         },
  531.         {
  532.             "ID": 96,
  533.             "Description": "Making a bold menu",
  534.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17\\cf1 Public\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Sub\\plain\\lang1032\\f3\\fs17  SetBold(frm \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  Form, iMenuIndex \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Long\\plain\\lang1032\\f3\\fs17 , iItemIndex \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Long\\plain\\lang1032\\f3\\fs17 )\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Dim\\plain\\lang1032\\f3\\fs17  hMnu \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Long\\plain\\lang1032\\f3\\fs17 , hSubMnu \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par hMnu = GetMenu(frm.hwnd)\r\n\\par hSubMnu = GetSubMenu(hMnu, iMenuIndex)\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Call\\plain\\lang1032\\f3\\fs17  SetMenuDefaultItem(hSubMnu, iItemIndex, 1&)\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 End\\plain\\lang1032\\f3\\fs17  Sub\r\n\\par }\r\n",
  535.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 The SetBold procedure takes 3 arguments. The first is the form that holds the menu you would like to change. The second is the zero based index of the menu and the third is the zero based index of the menu item you would like to set to bold.\r\n\\par \r\n\\par Let's say you have the following menu:\r\n\\par \r\n\\par mnuFile\r\n\\par ---mnuFileNew\r\n\\par ---mnuFileOpen\r\n\\par ---mnuFileExit\r\n\\par mnuEdit\r\n\\par ---mnuEditCut\r\n\\par ---mnuEditCopy\r\n\\par ---mnuEditPaste\r\n\\par \r\n\\par And you would like to set the mnuEditPaste item into bold. Then you would call the function in the following manner:\r\n\\par Call SetBold(Me, 1, 2)\r\n\\par Arguments:\r\n\\par ----------\r\n\\par Me = The form\r\n\\par 1 = Menu index for mnuEdit\r\n\\par 2 = Item index for mnuEditPaste\r\n\\par \r\n\\par \\plain\\f4\\fs17 By:\\plain\\lang1032\\f3\\fs17  Joacim Andersson\r\n\\par }\r\n",
  536.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;\\red0\\green127\\blue0;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17\\cf2 'Make the following declarations:\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Private\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Declare\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Function\\plain\\lang1032\\f3\\fs17  GetMenu _\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Lib\\plain\\lang1032\\f3\\fs17  \"user32\" ( _\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ByVal\\plain\\lang1032\\f3\\fs17  hwnd \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Long\\plain\\lang1032\\f3\\fs17 ) \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Private\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Declare\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Function\\plain\\lang1032\\f3\\fs17  GetSubMenu _\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Lib\\plain\\lang1032\\f3\\fs17  \"user32\" ( _\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ByVal\\plain\\lang1032\\f3\\fs17  hMenu \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Long\\plain\\lang1032\\f3\\fs17 , _\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ByVal\\plain\\lang1032\\f3\\fs17  nPos \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Long\\plain\\lang1032\\f3\\fs17 ) \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Long\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Private\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Declare\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Function\\plain\\lang1032\\f3\\fs17  SetMenuDefaultItem _\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Lib\\plain\\lang1032\\f3\\fs17  \"user32\" ( _\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ByVal\\plain\\lang1032\\f3\\fs17  hMenu \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Long\\plain\\lang1032\\f3\\fs17 , _\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ByVal\\plain\\lang1032\\f3\\fs17  uItem \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Long\\plain\\lang1032\\f3\\fs17 , _\r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 ByVal\\plain\\lang1032\\f3\\fs17  fByPos \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Long\\plain\\lang1032\\f3\\fs17 ) \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  Long\r\n\\par }\r\n",
  537.             "ParentID": 8
  538.         },
  539.         {
  540.             "ID": 97,
  541.             "Description": "Delay w/o API calls",
  542.             "Code": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1032\\pard\\plain\\f3\\fs17\\cf1 Public\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Function\\plain\\f3\\fs17  Delay(Mins%, Secs%, Optional ByRef StopFlag) \\plain\\f3\\fs17\\cf1 As\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Long\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf1 Dim\\plain\\f3\\fs17  EndOfDelay\r\n\\par     EndOfDelay = \\plain\\f3\\fs17\\cf0 DateAdd\\plain\\f3\\fs17 (\"n\", Mins, \\plain\\f3\\fs17\\cf0 Now\\plain\\f3\\fs17 )\r\n\\par     EndOfDelay = \\plain\\f3\\fs17\\cf0 DateAdd\\plain\\f3\\fs17 (\"s\", Secs, EndOfDelay)\r\n\\par     Delay = 0\r\n\\par     \\plain\\f3\\fs17\\cf1 Do\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 While\\plain\\f3\\fs17  (\\plain\\f3\\fs17\\cf0 Now\\plain\\f3\\fs17  < EndOfDelay)\r\n\\par         \\plain\\f3\\fs17\\cf0 DoEvents\\plain\\f3\\fs17 \r\n\\par         \\plain\\f3\\fs17\\cf1 If\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Not\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf0 IsMissing\\plain\\f3\\fs17 (StopFlag) \\plain\\f3\\fs17\\cf1 Then\\plain\\f3\\fs17 \r\n\\par             \\plain\\f3\\fs17\\cf1 If\\plain\\f3\\fs17  StopFlag \\plain\\f3\\fs17\\cf1 Then\\plain\\f3\\fs17 \r\n\\par                 Delay = 1\r\n\\par                 StopFlag = \\plain\\f3\\fs17\\cf1 False\\plain\\f3\\fs17 \r\n\\par                 \\plain\\f3\\fs17\\cf1 Exit\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Do\\plain\\f3\\fs17 \r\n\\par             \\plain\\f3\\fs17\\cf1 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 If\\plain\\f3\\fs17 \r\n\\par         \\plain\\f3\\fs17\\cf1 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 If\\plain\\f3\\fs17 \r\n\\par     \\plain\\f3\\fs17\\cf1 Loop\\plain\\f3\\fs17 \r\n\\par \\plain\\f3\\fs17\\cf1 End\\plain\\f3\\fs17  \\plain\\f3\\fs17\\cf1 Function\\plain\\f3\\fs17 \r\n\\par \r\n\\par }\r\n",
  543.             "Notes": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17 Delaying a VB app for a set number of Minutes, Seconds.\r\n\\par \r\n\\par \r\n\\par By Joe LeVasseur\r\n\\par lvasseur@tiac.net\r\n\\par }\r\n",
  544.             "Example": "{\\rtf1\\ansi\\deff0\\deftab720{\\fonttbl{\\f0\\fnil MS Sans Serif;}{\\f1\\froman\\fcharset2{\\*\\fname Symbol;}MT Symbol;}{\\f2\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f3\\fswiss\\fcharset161{\\*\\fname MS Sans Serif;}MS Shell Dlg;}{\\f4\\fswiss MS Sans Serif;}}\r\n{\\colortbl\\red0\\green0\\blue0;\\red0\\green0\\blue127;}\r\n\\deflang1033\\pard\\plain\\lang1032\\f3\\fs17\\cf1 Option\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Explicit\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Dim\\plain\\lang1032\\f3\\fs17  StopTheTimer \\plain\\lang1032\\f3\\fs17\\cf1 As\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Boolean\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Private\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Sub\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf0 Command\\plain\\lang1032\\f3\\fs17 1_Click()\r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 Dim\\plain\\lang1032\\f3\\fs17  lRetval&\r\n\\par     lRetval = Delay(1, 5, StopTheTimer)\r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 If\\plain\\lang1032\\f3\\fs17  lRetval = 0 \\plain\\lang1032\\f3\\fs17\\cf1 Then\\plain\\lang1032\\f3\\fs17 \r\n\\par         MsgBox \"Time's up!\"\r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 Else\\plain\\lang1032\\f3\\fs17 \r\n\\par         MsgBox \"You cancelled!\"\r\n\\par     \\plain\\lang1032\\f3\\fs17\\cf1 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 If\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Sub\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 Private\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Sub\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf0 Command\\plain\\lang1032\\f3\\fs17 2_Click()\r\n\\par     StopTheTimer = \\plain\\lang1032\\f3\\fs17\\cf1 True\\plain\\lang1032\\f3\\fs17 \r\n\\par \\plain\\lang1032\\f3\\fs17\\cf1 End\\plain\\lang1032\\f3\\fs17  \\plain\\lang1032\\f3\\fs17\\cf1 Sub\\plain\\lang1032\\f3\\fs17 \r\n\\par \r\n\\par \r\n\\par }\r\n",
  545.             "ParentID": 20
  546.         }
  547.     ]
  548. }